ОЧЕНЬ НАДО 9 КЛАСС ИНФОРМАТИКА (пожалуйста напишите полную программу, лучший ответ отмечу!!11!)
Написать программу: Заполнить массив из 20 элементов случайными числами на интервале [-20, 25]. Найти произведение элементов с четными номерами.
Ответы
Ответ дал:
0
var a:array [1..20] of integer;
i:integer;
p:real;
begin
p:=1;
for i:= 1 to 20 do
begin
a[i]:= Random(46)-20;
if i mod 2 = 0 then p:=p*a[i]
end;
writeln('Массив: ',a);
writeln('Произведение элементов с чётными номерами равно: ',p);
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад