Задача 3 Урок 15

Задача 6 Урок 13.1

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.

var
  i, max: integer;
  arr: array [1..7] of integer;
begin
  for i:= low(arr) to high(arr) do
  begin
    writeln('Vvedite element massiva nomer: ', i);
    readln(arr[i]);
  end;
  max:= arr[1];
  for i:= low(arr) to high(arr) do
  begin
     if max < arr[i] then
        max:= arr[i];
  end;
  write(max, ' ');
  readln();
end.