84

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

04 марта 2023

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

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



99

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 программы: вначале выводит произведение четных, потом нечетных, потом среднее арифм.

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


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...