Помогите составить программу , которая заполняет массив а [1..10] случайным целыми...

0 голосов
37 просмотров

Помогите составить программу , которая заполняет массив а [1..10] случайным целыми цислами в диапазоне от 1 о 10 и
вычисляет произведения элементов массива с нечетными значениями


Информатика (17 баллов) | 37 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ  Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";

ПЕР
  a: РЯД 10 ИЗ ЦЕЛ;
  сч: ЦЕЛ;
  произведение: ЦЕЛ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
    a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1
  КОН;
  произведение := 1;
  ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
    ЕСЛИ НЕ ЧЕТ(a[сч]) ТО
      произведение := произведение * a[сч]
    КОН
  КОН

КОН Задание.

0

это не то

0

В каком смысле?

0

нужно полную программу со всем этим Program, begin

0

Это и есть полная программа.

0

Не совсем понял, что тебя не устраивает в ней.