Заполнить

массив из 15 элементов

числами из интервала от

-10 до 10 вывести в

строчку и повторно

вывести в строчку заменив

все элементы стоящие на

четных местах на число 5.

Program A1;

Uses crt;

Var A: array [1 ... 15] of integer;

i: integer;

Begin clrscr;

for i:=1 to 15 do

begin

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

write (a[i],' ') ;

end;

writeln;

for i:=1 to 15 do

begin

if i mod 2=0 then a[i]:=5;

end;

for i:=1 to 15 do

write {a[i].' ') ;

readln;

readkey;

end.