:Ввести с клавиатуры массив из 5 элементов, найти в нем два максимальных элемента и их номера.Pascal ABC
:
Ввести с клавиатуры массив из 5
элементов, найти в нем два максимальных элемента и их номера.
Pascal ABC
Гость
Ответ(ы) на вопрос:
Гостьvar a1, b1, a2, b2, c, i, n:integer;
s:array[1..10000] of integer;
begin
read (n);
for i :=1 to n do
read (s[i]);
a1:=s[1];
for i :=1 to n do
if s[i]>a1 then
begin
b1:=i;
a1:=s[i];
end;
s[b1]:=-63999;
a2:=s[1];
for i :=1 to n do
if s[i]>a2 then
begin
b2:=i;
a2:=s[i];
end;
writeln (b1,' ',b2);
write (a1,' ',a2);
end.
Я там еще какую-то коронку писал, уже не помню, но что-то про лучшее.
Не нашли ответ?
Похожие вопросы