Задан массив заполненный случайным образом получить массив к каждому элементу исходного прибавить 13

var a:array [1 ... 10] of integer;

i:integer;

begin

for i:=1 to 10 do a[i]:=random (10) - 9;

writeln ('Исходный массив: ', a);

for i:=1 to 10 do a[i]:=a[i]+13;

writeln ('Полученный массив: ', a)

end.

Var a: array[1 ... 12] real

i: integer

begin

for i=1 do 12 do

read (a[i])

for i=1 do 12 do

begin;

a[i]=a[i]+13

end;