Информатика( 9 класс) , . 1.найти произведение элементов массива, состоящее из n элементов, имеющих четное значение. элементы вводятся с генератора случайных чисел. 2.найти среднее арифметическое элементов массива состоящих из 10 чисел, которые превышают число с. элементы вводятся с клавиатуры.

231

239

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

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

marinavolgina

Информатика

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

Вэтой проге 1 и 2 program p1; uses crt; const n = 10; var a: array [1..n] of integer; i,p,c: integer; k,sr: real; begin read(c); for i : = 1 to n do begin a[i]: = random(21)-10; write(a[i]: 4); end; writeln; p: =1; sr: =1; for i: =1 to n do begin if (a[i]mod 2 = 0) and (a[i]< > 0) then begin p: =p*a[i]; end; if c< =a[i] then begin sr: =a[i]*sr; k: =k+1; end; end; sr: =sr/k; writeln('произведение чётных : ',p); writeln('среднее арифметическое ',sr: 5: 2); end. только всё равно проверь!