Сформируйте массив из 10 элементов, каждый элемент которого ...
Сформируйте массив из 10 элементов, каждый элемент которого равен сумме значений его индекса и квадрата индекса. Найдите произведение элементов массива, стоящих на четных местах. Вывести на экран эти элементы и их произведение.
Есть ответ
18.12.2022
229
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022