Очень нужна помощь по информатике! В Паскале!

Создайте массив из 15 целочисленных элементов и определите среди них максимальное значение. Заполните случайным образом.

Question

Информатика

Геруша

6 сентября, 04:59

Очень нужна помощь по информатике! В Паскале!

Создайте массив из 15 целочисленных элементов и определите среди них максимальное значение. Заполните случайным образом.

+2

Ответы (1)

Знаете ответ?

Ирена · Answer 1

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.