1. Составьте программу , которая заполняет массив а [1..10]
случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его, возводя в квадрат все элементы с чётными индексами.
случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его, возводя в квадрат все элементы с чётными индексами.
More Questions From This User See All
Answers & Comments
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.