Помогите с массивами

В массиве 20 случайных чисел. Найдите и выведите на экран максимальное из них.

Question

Информатика

Лилюня

26 июня, 01:15

Помогите с массивами

В массиве 20 случайных чисел. Найдите и выведите на экран максимальное из них.

+1

Ответы (1)

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

Лукьян · Answer 1

Var

A: array[1 ... 20] of integer;

i, max:integer;

Begin

Randomize () ;

for i:=1 to 20 do A[i]:=random (100) ;

max:=A[20];

for i:=1 to 20 do

if (A[i]>max) then max:=A[i];

writeln (max) ;

end.

Помогите с массивамиВ массиве 20 случайных чисел. Найдите и выведите на экран максимальное из них.

Помогите с массивами

В массиве 20 случайных чисел. Найдите и выведите на экран максимальное из них.