Помогите срочнооо, 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
Не нашли ответ?
Похожие вопросы