Дан массив размера н, заполненный случайными числами

Задание:

Дан массив размера н, заполненный случайными числами. Найти максимум из этих чисел

Решение:

const n=20; vari,max: integer; ar: array[1… n] of integer; beginmax: =0; randomize; for i: =1 to n do beginar[i]: =random (100)+1; if ar[i] > max then max: =ar[i]; end; writeln (max); end.

Знаете другой ответ?

Отправить свой ответ