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

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

Question

Информатика

Витовт

23 июня, 14:57

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

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

+3

Ответы (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 максимума из любой последовательности чисел