68

Составьте программу, которая заполняет массив а[1…

aleksreg 17 апреля 2023

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

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

93

На Pascalprogram noname; uses crt; constt=10; vara: array[1… t] of byte; i,k: byte; x,n: integer; r: real; beginclrscr; randomize; x: =1; k: =0; n: =0; for i: =1 to t do begina[i]: =random (20-1+1)+1; if (a[i] mod 2=0) then x: =x*a[i]else begin n: =n+a[i]; k: =k+1; end; writeln ('a[',i,']=',a[i]); end; r: =n/k; writeln ('произведение элементов с четным значением=', x); writeln ('ср. Арифм. Элементов с нечетным значением=',r); end.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

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