Заполнить линейный массив из 10 элементов случайными числами от - 40 до 40. Найти максимальный элемент массива. Pascal ABC

Question

Информатика

Наркиз

27 августа, 17:16

Заполнить линейный массив из 10 элементов случайными числами от - 40 до 40. Найти максимальный элемент массива. Pascal ABC

+2

Ответы (1)

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

Радомир · Answer 1

Var

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

i: byte;

max: integer;

begin

randomize;

max : = - 100;

for i : = 1 to 10 do

begin

a[i] : = random (81) - 40;

if a[i] > max then max : = a[i];

write (a[i], ' ') ;

end;

writeln (#13+'Максимальный элемент = ', max) ;

end.