Сформировать и вывести на экран массив, элементы которого заданы датчиком
случайных чисел на интервале [-19, 26] (размер произвольный). Найти произведение
элементов с нечетными номерами.
Program proisvednechet;
Var a: array[1..100] of integer;
i, n, p: integer;
Begin
Write (‘Сколько элементов? ’); Readln (n);
P:=1;
For i=1 to n do
begin
a[i]:= Random(46)-19;
writeln (a[i],’ ‘);
if i mod 2 <> 0 then P=P*a[i];
end;
Writeln(‘Произведение элементов с нечетными номерами:’, P);
End.

mumuminecraft    2   06.05.2020 20:01    83