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

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

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

program project1;
var numbArr: array[1..7] of integer;
    i,max:integer;
begin
  for i:=low(numbArr) to high(numbArr) do
  begin
    write('Введите ',i,' число : '); readln(numbArr[i]);
  end;
  max:=numbArr[1];
  for i:=low(numbArr) to high(numbArr) do
  begin
    if numbArr[i]>max then
      max:=numbArr[i];
  end;
  writeln('Максимальное число в массиве ' max, ' ');
  readln();
end.