Очень нужна помощь по информатике! В Паскале!!!
Создайте массив из 15 целочисленных элементов и определите среди них максимальное значение. Заполните случайным образом.
Const
n=15;
var
a:array[1..n]of integer;
i,max:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
end;max:=a[1];
for i:=2 to n do
if a[i]>max then
max:=a[i];
writeln;
writeln(max);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
