Question

Привет! Помогите пожалуйста Паскаль!!

Answer 1

Объяснение:

Вариант 6

const

N = 10;

var

a: array[1..N] of integer;

i, max1, max2: byte;

begin

randomize;

for i:=1 to N do begin

a[i] := random(10);

write(a[i]:3);

end;

writeln;

max1 := 1;

for i:=2 to N do

if a[i] > a[max1] then

max1 := i;

if max1=1 then

max2 := 2

else

max2 := 1;

for i:=2 to N do

if i <> max1 then // чтобы пропустить max1

if a[i] > a[max2] then

max2 := i;

writeln(max1,' ', a[max1]);

writeln(max2,' ', a[max2]);

end.

Вариант 8 не получилось