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

Question

84

№1 Составьте программу, которая заполняет массив a[1… 10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет произведение массива с четнымизначениями. №2 Составьте программу, которая заполняет массив a[1… 10] случайными целыми числами в диапазоне от 1 до 10 до 10 и вычисляет среднее арифметическое элементов массива. №3 Такое же как и №2, только … элементов массива с четными значениями.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

ramlex · Accepted Answer

99

ramlex

23 февраля 2024

var a: array[1… 10]of integer; n1,n2,s,i: integer; beginn1: =1; n2: =1; for i: =1 to 10 do a[i]: =random (10)+1; for i: =1 to 10 do beginif a[i] mod 2=0 then n1: =n1*a[i] else n2: =n2*a[i]; s: =s+a[i]; end; writeln (n1,',n2,',s/10); end. Объеденил все 3 программы: вначале выводит произведение четных, потом нечетных, потом среднее арифм.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: