Pascal. Задача 4-8

Определить номера первого и последнего элементов, которые совпадают с максимальным элементом массива.

Решение

Const
  N = 10;
var
  i, max, frst, lst : integer;
  A : array[1..N] of integer;
begin
  for i := 1 to N do begin
      write('Введите A[', i, ']: ');
      read(A[i]);
    end;
  max:= A[1];
  frst := 1;
  lst := 1;
  for i := 2 to N do
    if A[i] > max then begin
          max:= A[i];
          frst := i;
          lst := i;
      end
    else 
      if A[i] = max then Inc(lst);
  writeln('Индекс первого: ', frst, ', индекс последнего: ', lst);
end.