Ответы
Ответ дал:
0
var i,min: integer;
a:array[1..20] of integer;
begin
for i:=1 to 20 do
begin
write('Введи число №',i,': ');
readln(a[i]);
end;
min:=a[1];
for i:=2 to 20 do
if a[i]<min then
min:=a[i];
Writeln('Минимальное: ',min)
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад