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

Question

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

Пример:
Исходный массив:
4 -5 10 -10 5
максимальные A[3]=10, A[5]=5

Answer 1

Const n = 5;
var a:array[1..n] of integer;
i,max1,max2,k,k1:integer;
begin
 for i:=1 to n do
readln(a[i]);
max1:=-100000000000;
max2:=-100000000000;
for i:= 1 to n do 
if a[i]>max1 then 
begin
 max1:= a[i]; k:=i;
end;
for i:= 1 to n do 
if (a[i]>max2) and (a[i]begin
 max2:= a[i]; k1:=i;
end;
Writeln('a[',k,']=', max1,'  a[',k1,']=',max2);
end.

Comments

У Вас в одном цикле ошибка/опечатка for i:= i to n do

---

Согласен)

Answer 2

Var a : array [1...5] of integer

for i := 1 to 5 do
Read(a[i]);
end
var first:=1;
var second:=2;
for i := 1 to 5 do
if (a[i] > a[first]) then
second:=first;
first:=i;
end
end
Print(a[first]);
Print(a[second]);

Comments

для некоторых ситуаций можно в цикл добавить еще одно условие if((a[i] > a[second])&&(a[i]