Question

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

Answer 1

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.