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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.