1. Составьте программу , которая заполняет массив а [1..10]случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его, возводя в квадрат все элементы с чётными индексами.
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.
Не нашли ответ?
Похожие вопросы