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

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

Question

Информатика

Ульян

24 июня, 08:19

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

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

+2

Ответы (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 случайных чисел. Найдите и выведите на экран максимальное из них.