составьте программу, которая заполняет массив А:[1 ... 10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовывает его, возводя в квадрат все элементы с четными индексами

Program Program1;

var

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

i:integer;

begin

randomize;

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

for i:=1 to 10 do

begin

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

writeln ('a[', i,']=', a[i]) ;

end;

for i:=1 to 10 do

if i mod 2 = 0 then a[i]:=sqr (a[i]) ;

Writeln ('Преобразованный массив: ') ;

for i:=1 to 10 do

writeln ('a[', i,']=', a[i]) ;

end.