Предмет: Информатика,
автор: dudinal
:
Ввести с клавиатуры массив из 5
элементов, найти в нем два максимальных элемента и их номера.
Pascal ABC
Ответы
Автор ответа:
0
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.
Я там еще какую-то коронку писал, уже не помню, но что-то про лучшее.
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.
Я там еще какую-то коронку писал, уже не помню, но что-то про лучшее.
Похожие вопросы
Предмет: Русский язык,
автор: kaliev120680
Предмет: Русский язык,
автор: akibaevaaiganym08
Предмет: История,
автор: dtfldidighjgif
Предмет: Математика,
автор: ujkejxtr