Ввести с клавиатуры массив из 5 элементов, найти в нем два максимальных элемента и их номера Пример: Исходный массив: 4 -5 10 -10 5 максимальные A[3]=10, A[5]=5
Ввести с клавиатуры массив из 5 элементов, найти в нем два максимальных элемента и их номера
Пример:
Исходный массив:
4 -5 10 -10 5
максимальные A[3]=10, A[5]=5
Гость
Ответ(ы) на вопрос:
Гость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]);
Гость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]