Вариант 4 Дан массив из N чисел (Xi). Найти максимальный элемент массива (Max).

Question

Вариант 4
Дан массив из N чисел (Xi). Найти максимальный элемент массива (Max).

Answer 1

Const
  MAX_SIZE = 200;
var
  N, Max, i: integer;
  X: array [1..MAX_SIZE] of integer;
begin
randomize;
write('N = ');
readln(N);

writeln('Исходный массив: ');
for i := 1 to N do
begin
  X[i] := random(101)-50;
  write(X[i], ' ');
end;
writeln;

Max := X[1];
for i := 1 to N do
  if (X[i] > Max) then
    Max := X[i];
    
writeln('Максимальный элемент массива = ', Max);
end.