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

203

459

Посмотреть ответы 2

Ответы на вопрос:

misterpordon

Информатика

4,5(79 оценок)

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

Данил2007Г

Информатика

4,7(18 оценок)

Const n=10; var b: array [1..n] of integer; i,s,cu,k: integer; cp: real; begin cu: =1; writeln('введите элементы массива'); for i: =1 to n do begin b[i]: =random(21)-10; writeln('b[',i,']=',b[i]); s: =s+b[i]; cu: =cu*b[i]; inc(k); end; cp: =s/k; writeln('среднее арифметическое равно ',cp,', произведение равно ',cu,', сумма равна ',s); end.