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

2012-11-19T16:10:04+04:00

Program Pr1;
uses crt;
const n=20;
var mas:array[1..n] of integer;
i:integer;
Begin
clrscr;
randomize;
for i:=1 to n do mas[i]:=random(10);
for i:=1 to n do write(mas[i]);
writeln;
for i:=1 to n do if i mod 2=0 then mas[i]:=0;
for i:=1 to n do write(mas[i]);
end.