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

Question

Информатика

Акинф

21 февраля, 03:21

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

+4

Ответы (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.