Вопрос пользователя:
Сформируйте массив из 10 элементов, каждый элемент которого равен сумме значений его индекса и квадрата индекса. Найдите произведение элементов массива, стоящих на четных местах. Вывести на экран эти элементы и их произведение.
Илюха отвечает:
var
a : array[1..10] of intenger;
b : intenger;
Begin
b:=1;
For i:= 1 to 10 do
begin
a[i]:=i+i*i;
end;
For i:= 1 to 5 do
begin
b:=b*a[i*2];
end;
For i:=1 to 5
begin
Writeln(‘ ‘,a[i*2]);
end;
Writeln(‘произведение элементов массива, стоящих на четных местах=’,b);
End.