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

1

Ответы и объяснения

  • Kitsu
  • почетный грамотей
2012-12-02T20:02:45+04:00

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

i:integer;

begin

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

for i:=1 to 10 do write(a[i],' ');

writeln;

for i:=2 to 10 do if i mod 2 = 0 then a[i]:=sqr(a[i]);

 

for i:=1 to 10 do write(a[i],' ');

end.