Подскажите где ошибка???

Задача: В одномерном массиве Х(15) найти: минимальный из элементов, больших двух, и поменять его местами с первым. Программа на языке Паскаль.Подскажите где в ней ошибка? Не могу найти! Правильно ли написана программа?

Program pr3;

  Const

                   n=15;

                   X:array[1..n]of integer=(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);

         Var min,t:real;i,imin:integer;

         Begin

      min:=10000;

      writeln('введите X[15]');

      read;

         for i:=1to n do

                  if X[i]<min then

    Begin min:=X[i];imin:=i;

    End;

 writeln('min=',min:6:2,'imin=',i);

 t:=X[imin];

 X[imin]:=X[0];

 X[0]:=t;

 writeln('изменённый массив')

 for i=1 to 15 do

 write(X[i]);

End.

 

Лучший ответ по мнению автора

Получилось

Program pr3;
uses crt;
Const
n=15;
{X:array[1..n]of integer=(1,2,21,20,5,6,3,8,9,10,4,5,13,14,15);}
Var min,t:integer;i,imin:integer;
X:array[1..n] of integer;
Begin
clrscr;
writeln('vvedite massiv');
for i:=1 to n do readln(X[i]);
writeln('ishodny massiv');
for i:=1 to n do write(X[i]:4);
writeln;
min:=32567; imin:=1;
for i:=1 to n do
if (X[i]>2) and (X[i]<=min) then
Begin min:=X[i];imin:=i; End;
writeln('min=',min:4,' imin=',imin);
t:=X[imin];
X[imin]:=X[1];
X[1]:=t;
writeln('изменённый массив');
for i:=1 to 15 do
write(X[i]:4);
readln
End. 

23.04.12
Лучший ответ по мнению автора

Другие ответы

Не могу вставить обычный текст. Напишите письмо, сброшу файлом. Я поправила программу.

23.04.12
Рекомендуем личную консультацию

Елена Васильевна

Сейчас на сайте
Меня зовут Елена Васильевна, я репетитор по математике из г. Гомель (Беларусь). Занимаюсь со школьниками (8 по 11 класс), а также со студентами.
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store