1. задайте массив из 10 элементов с датчика случайных чисел. найдите среднее арифметическое чётных элементов массива. вывести на экран исходный массив и среднее арифметическое.

169

198

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

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

ilya429

Информатика

4,6(59 оценок)

Program z1; var a: array [1..10] of integer; i,r,k,p,s: integer; begin randomize; k: =0; p: =0; for i: =1 to 10 do begin a[i]: =random (40); write (a[i],' '); end; writeln(' '); for i: =1 to 10 do begin if a[i] mod 2=0 then k: =k+1 ; p: =p+a[i] end; s: =p div k; write (s); end.