Написать программу вычисления наименьшего элемента массива.
Написать программу вычисления наименьшего элемента массива.
Гость
Ответ(ы) на вопрос:
ГостьДля языка программирования: Turbo Pascal
program min;
var a: array [1..10] of integer;
i,p: byte; min: integer;
begin writeln('Массив:');
for i:=1 to 10 do
begin a[i]:=-20+random(80);
write(a[i],' ');
end;
writeln();
min:=a[1];
for i:=1 to 10 do
if (a[i] <= min) then
begin min:=a[i]; p:=i;
end;
writeln('Минимальное число = ',min,' его порядковый номер = ',p);
end.
Не нашли ответ?
Похожие вопросы