Помогите с прогой на паскале

Ввести последовательность случайным образом N=12. Упорядочить последовательность по убыванию и вывести на экран два наибольших четных и наименьших нечетных числа.

Question

Информатика

Желя

15 сентября, 01:55

Помогите с прогой на паскале

Ввести последовательность случайным образом N=12. Упорядочить последовательность по убыванию и вывести на экран два наибольших четных и наименьших нечетных числа.

+4

Ответы (1)

Знаете ответ на вопрос?

Евтихий · Answer 1

Const n = 12;

var temp:Integer;

var ar:array[1 ... n] of Integer;

begin

for var i: = 1 to n do

Read (ar[i]) ;

for var a: = 1 to n do

for var b: = 1 to n do

if (b
begin

temp: = ar[b];

ar[b]: = ar[b+1];

ar[b+1]: = temp;

end;

Writeln ('Два наибольших '+ar[1] + ' и '+ar[2]+'.') ;

Writeln ('Два наименьших '+ar[n-1]+' и '+ar[n]+'.') ;

end.

Жмякаем 'Лучший'