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

175

347

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

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

Эльза132004

Информатика

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

Begin writeln("данный массив: "); for i: =1 to 10 do begin a[i]: =random(50)+1; writeln(a[i]," "); if (i mod 2 = 0) then begin sr: =sr+a[i]; k: =k+1; end; end; sr: =sr/k; writeln("среднее арифметическое элементов с четными значениями = ",sr); end.

костя665

Информатика

4,8(36 оценок)

Var a: array[1..10] of integer; avg,sum,i: integer; begin for i: =1 to 10 do a[i]: =rand(50); for i: =1 to 10 do begin if a[i] mod 2 = 0 then sum: =sum+a[i]; end; avg: =sum/10; write(avg); end.