Ввести с клавиатуры массив из 5 элементов, найти в нем два максимальных элемента и их...

Question

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

Answer 1

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.