Question

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

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

Найти максимальный элемент массива.

Answer 1

Program Mas;
Var A:array [1..240] of integer;
I,x:integer;
Begin
For I:=1 to 240 do
A[I]:=Random(1000);
For I:=1 to 240 do
If A[I]>x Then x:=A[I];
WriteLn ('',x);
End.

 Random(1000) - это интервал
то есть у вас будут задаваться числа от 0 до 999
можете сами задать интревал, который вам нужен