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

const   MAX_SIZE = 200;var   N, Max, i: integer;  X: array [1..MAX_SIZE] of integer;beginrandomize;write('N = ');readln(N);writeln('Исходный массив: ');for i := 1 to N dobegin  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.