Написать программу в Turbo pascal

Найти 2 максимума из любой последовательности чисел

Question

Информатика

Симона

26 сентября, 05:28

Написать программу в Turbo pascal

Найти 2 максимума из любой последовательности чисел

+2

Ответы (1)

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

Станислав · Answer 1

Var ar:array[1 ... 30] of integer;

i, max, max2, maxp, maxi:integer;

begin;

randomize;

writeln ('Array') ;

for i:=1 to 30 do

begin;

ar[i]:=random (1,100) ;

write (ar[i]:4) ;

end;

for i:=1 to 30 do

if max
begin;

maxp:=max;

max:=ar[i];

maxi:=i;

end;

ar[maxi]:=maxp;

for i:=1 to 30 do

if max2
writeln;

writeln ('Max1:', max) ;

writeln ('Max2:', max2) ;

end.

Написать программу в Turbo pascalНайти 2 максимума из любой последовательности чисел

Написать программу в Turbo pascal

Найти 2 максимума из любой последовательности чисел