Напишите программу на языке программирования (или составьте алгоритм).
Заполнить массив В, состоящий из сорока элементов, случайными целыми числами
из интервала [–30; 50] и найти максимальный элемент.
var i,max:integer;
b:array[1..40] of integer;
begin
randomize;
for i:=1 to 40 do
begin
b[i]:=random(random(80))-30;
write(b[i], );
end;
writeln;
max:=b[1];
for i:=1 to 40 do
begin
if b[i]>= max then
begin
max:=b[i];
end;
end;
writeln(Максимальный элемент массива: ,max);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
