Решение на Pascalе
Дан одмомерный массив B(n), N=30, заданный случайным образом.Найти наибольший элемент данного массива.

2

Ответы и объяснения

2013-02-06T15:25:14+00:00

var a:array [1..30] of integer;

      max:integer;

begin

for i:=1 to 30 do

b(n):=random(10);

max:=b(1);

for i:=1 to 30 do

if b(n) > max  then

max:=b(n);

writeln(max);

end.