Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Написать программу вычисления наименьшего элемента массива.

Ответ оставил Гость

Для языка программирования: Turbo Pascal

program min;
vara: array [1..10] of integer;
i,p: byte;min: integer;
beginwriteln(Массив:);
for i:=1 to 10 do
begina[i]:=-20+random(80);
write(a[i], );
end;
writeln();
min:=a[1];
for i:=1 to 10 do
if (a[i] <= min) then
beginmin:=a[i];p:=i;
end;
writeln(Минимальное число = ,min, его порядковый номер = ,p);
end.