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

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

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

Решение:

program u15z03;
var i,m:integer;
  a: array [1..7] of integer;
begin
  m:=0;
  for i:=low(a) to high(a) do
  begin
    write('vvedite chislo - ');
    readln(a[i]);
  end;
  for i:=low(a) to high(a) do
    if a[i]>m then
      m:= a[i];
  writeln('maximum = ',m);
  readln();
end.

Консоль:

vvedite chislo - 2
vvedite chislo - 5
vvedite chislo - 3
vvedite chislo - -1
vvedite chislo - 5
vvedite chislo - 6
vvedite chislo - 0
maximum = 6