Question

Помогите пожалуйста, очень срочно надо!

Answer 1

const n=10;

var i,s,max,min:integer;

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

begin

for i:=1 to n do

begin

a[i]:=random(90)+10;

write (a[i]:3)

end;

writeln;

max:=a[1];

min:=a[1];

for i:=2 to n do

begin

if a[i]>max then max:=a[i];

if a[i]<min then min:=a[i]

end;

for i:=1 to n do

begin

if i mod 2 = 0 then a[i]:=max else a[i]:=min;

write (a[i]:3)

end

end.