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

Question

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

Answer 1

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.