Дан целочисленный А[1 ... 10], заполненный датчиком случайных чисел найти максимальный элемент массива.

Question

Информатика

Алексей

8 июля, 20:02

Дан целочисленный А[1 ... 10], заполненный датчиком случайных чисел найти максимальный элемент массива.

+1

Ответы (1)

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

Настуня · Answer 1

program prim1;

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

i, max : integer;

begin

randomize;

for i:=1 to 10 do begin

a[i]:=random (30) ;

writeln (‘znas4enie’, i, ‘elementa massiva=’, a[i]) ;

end;

max: = a[1];

for i:=1 to 10 do

if a[i] > max then max: = a[i]; writeln (‘max=’, max) ;

end.