Вопрос по информатике:
:
Ввести с клавиатуры массив из 5
элементов, найти в нем два максимальных элемента и их номера.
Pascal ABC
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 11.03.2018 16:22
- Информатика
- remove_red_eye 5775
- thumb_up 23
Ответы и объяснения 1
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.
Я там еще какую-то коронку писал, уже не помню, но что-то про лучшее.
- 12.03.2018 05:27
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.