Учеба и наука
Решено
Подскажите где ошибка??? - вопрос №257484
Задача: В одномерном массиве Х(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.
апрель 22, 2012 г.
-
Всего ответов: 2
-
Не могу вставить обычный текст. Напишите письмо, сброшу файлом. Я поправила программу.
-
Получилось
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.Лучший ответ по мнению автора
Похожие вопросы
Решено
В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв
сентябрь 19, 2013 г.