Задание 3 Урок 15

Задание 3 Урок 15

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

type arr = array[1..7] of integer;
var first_array : arr;

procedure  user_array(var f_array: arr);
var i,  user_value: integer;
begin
  for i := low(f_array) to high(f_array) do
    begin
      write('Введите значение №', i, 'и нажмите ENTER: ');
      readln(user_value);
      f_array[i] := user_value;
    end;
end;

procedure  comparison(f_array: arr);
var g,max : integer;
begin
  max := f_array[1];
  for g := low(f_array) to high(f_array) do
      if (f_array[g] > max) then
        max := f_array[g];
  writeln('Максимум  = ', max);
end;

begin
  user_array(first_array);
  comparison(first_array);
  readln();
end.

консоль:

Введите значение №1и нажмите ENTER: 1
Введите значение №2и нажмите ENTER: -12
Введите значение №3и нажмите ENTER: 0
Введите значение №4и нажмите ENTER: -56
Введите значение №5и нажмите ENTER: -12
Введите значение №6и нажмите ENTER: 102
Введите значение №7и нажмите ENTER: 36
Максимум  = 102
vedro-compota's picture

решение засчитано

_____________
матфак вгу и остальная классика =)