Задание:
Составьте программу, которая заполняет массив а[1… 10] случайными целыми числами в диапазоне от 1 до 20 и вычисляет произведение элементов массива счетными значениями и среднее арифм. Элементов массива с нечетными значениями
Решение:
На 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.
Знаете другой ответ?