Заполнить
массив из 15 элементов
числами из интервала от
-10 до 10 вывести в
строчку и повторно
вывести в строчку заменив
все элементы стоящие на
четных местах на число 5.

Program A1;Uses crt;Var A: array [1..15] of integer;i: integer;Begin clrscr;for i:=1 to 15 dobegina[i]:= random (10-(-10)+1)+(-10);write (a[i],' ');end;writeln;for i:=1 to 15 dobeginif i mod 2=0 then a[i]:=5;end;for i:=1 to 15 dowrite {a[i].' ');readln;readkey;end.