1. составьте программу , которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его, возводя в квадрат все элементы с чётными индексами.
Var n,i:integer; a:array[1..100]of integer; begin //read(n); n:=10; randomize; for i:=1 to n do a[i]:=random(11); for i:=1 to n do write(a[i],' '); writeln; writeln(''); for i:=1 to n do if(i mod 2 =0)then write(sqr(a[i]),' '); readln;readln; end.
a:array[1..100]of integer;
begin
//read(n);
n:=10;
randomize;
for i:=1 to n do
a[i]:=random(11);
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('');
for i:=1 to n do
if(i mod 2 =0)then write(sqr(a[i]),' ');
readln;readln;
end.