Написать программу, которая заполняет массив из 5 чисел случайными значениями от 1 до 6 и выводит минимальный элемент. Язык Паскаль.
Ответы
Ответ дал:
0
var a:array [1..5] of integer;
i,m:integer;
begin
m:=6;
write('Массив: ');
for i:=1 to 5 do
begin
a[i]:=random(6)+1;
write(a[i],' ');
if a[i]<m then m:=a[i]
end;
writeln;
writeln('Минимальный элемент: ',m)
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад