1. Записать алгоритм нахождения максимального значения в числовом
массиве.
2. Выделить зелеными прямоугольниками в алгоритме и подписать 4
блока:
1. блок описания
2. блок ввода
3. блок обработки (смотреть до 4мин)поиск наибольшего значения)
4. блок вывода
3. Записать программу на Паскале нахождения максимального
значения в числовом массиве.
4. Выделить зелеными прямоугольниками в алгоритме и подписать 4
блока:
1. блок описания
2. блок ввода
3. блок обработки (смотреть до 4мин)поиск наибольшего значения)
4. блок вывода

Const n =5;
var
  a:array[1..n] of integer;
  i,max:integer;
begin
  writeln('Введите 1 элемент массива');
  readln(a[1]); max:=a[1];
  for i:=2 to n do begin
    writeln('Введите ', i,' элемент массива');
    readln(a[i]);
    if a[i]>max then max := a[i];
  end;
  writeln('Максимальный элемент массива равен ',max);
end.

Тестовое решение:
Введите 1 элемент массива
21
Введите 2 элемент массива
56
Введите 3 элемент массива
12
Введите 4 элемент массива
24
Введите 5 элемент массива
15
Максимальный элемент массива равен 56

Const n =5;
var
  a:array[1..n] of integer;
  i,max:integer;
begin
  writeln('Введите 1 элемент массива');
  readln(a[1]); max:=a[1];
  for i:=2 to n do begin
    writeln('Введите ', i,' элемент массива');
    readln(a[i]);
    if a[i]>max then max := a[i];
  end;
  writeln('Максимальный элемент массива равен ',max);
end.

Тестовое решение:
Введите 1 элемент массива
21
Введите 2 элемент массива
56
Введите 3 элемент массива
12
Введите 4 элемент массива
24
Введите 5 элемент массива
15
Максимальный элемент массива равен 56