Задание:
Сформулируйте массив из 10 целых чисел из промежутка [1; 15] и вычислите произведение элементов массива с нечетныминомерами
Решение:
Var a: array [1… 15] of integer; i, m: integer; begin m: =1; for i: =1 to 10 do begin a[i]: =random (20); writeln ('[', i, '] => ', a[i]); if (a[i] mod 2=1) then m: =m*a[i]; end; writeln (m); end. Уже делал)
Знаете другой ответ?