Помогите срочнооо, 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
writeln();
write(min = , min);
readln();
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
