Ввести с клавиатуры массив из 5 элементов, найти в нем два максимальных элемента и их номера. Pascal ABC ПОЖАЛУЙСТА ДЕЛАЙТЕ КАК МОЖНО ПРОЩЕ

Ввести с клавиатуры массив из 5 элементов, найти в нем два максимальных элемента и их номера. Pascal ABC ПОЖАЛУЙСТА ДЕЛАЙТЕ КАК МОЖНО ПРОЩЕ
Гость
Ответ(ы) на вопрос:
Гость
program znanija; const n = 5; var  a:array[1..n] of integer; premax, premaxi, maxi, max, i, b:integer; begin max := -1000; write('Введите массив из ', n, ' элементов:'); for i := 1 to n do begin  read(b);  a[i] := b;  if b > max then  begin  premax := max;  premaxi := maxi;    max := b;  maxi := i;  end;   end; writeln('Максимальный элемент №1: ', max, ',его номер ', maxi); writeln('Максимальный элемент №2: ', premax, ',его номер ', premaxi); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы