Помогите срочнооо, 60 баллов, Паскаль! Дан массив из 20 целых чисел. Найти минимальный элемент массива.
Помогите срочнооо, 60 баллов, Паскаль!
Дан массив из 20 целых чисел. Найти минимальный элемент массива.
Ответ(ы) на вопрос:
Var a:array[1..20] of integer;
i,min:integer;
begin
min:=100;
for i:=1 to 20 do begin
a[i]:=random[min];
write(a[i],' ');
if min
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
Writeln('min=',ArrRandom(20,10,99).Println.Min)
end.
Тестовое решение:
31 53 75 18 93 22 40 30 37 14 24 23 92 64 65 89 41 88 58 38
min=14
Не нашли ответ?
Похожие вопросы