Ответы и объяснения

2013-06-26T13:42:42+04:00

var

  z:array [1..10] of integer;

 

  i,j,m1,m2:integer;

begin

  for i:=1 to 10 do 

   begin

    write ('Z[',i,'] = ');readln(z[i]);

   end;

  m1:=z[1];

  m2:=z[2];

  for i:=3 to 10 do

   if (z[i]>m1) and (i mod 2<>0) then m1:=z[i] else

    if (z[i]>m2) and (i mod 2 = 0) then m2:=z[i];

  writeln ('Макс. эл. в четных: ',m2);

  writeln ('Макс. эл. в нечетных: ',m1);

  readln;

end.