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

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

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

program U15Z3;
var a: array[1..7] of integer;
    i,max: integer;
begin
  writeln('vvedite 7 elementov massiva');
  for i:=1 to 7 do
    readln(a[i]);
  max:= a[1];
  for i:=2 to 7 do
    if (a[i]>max) then
      max:=a[i];
  writeln('mazimalnoe znachenie: ', max);
  readln();
end.