Помогите с задачей на паскале

Дан одноименный массив А. Определить среднее арифметическое положительных и четных элементов больших 6.

Question

Информатика

Гликерия

19 июля, 19:42

Помогите с задачей на паскале

Дан одноименный массив А. Определить среднее арифметическое положительных и четных элементов больших 6.

+4

Ответы (1)

Знаете ответ?

Филонилла · Answer 1

var a: array [1 ... 20] of integer;

i, k: integer;

s: real;

begin

for i:=1 to 20 do

readln (a[i]) ;

s : = 0;

k : = 0;

for i:=1 to 20 do

if (a[i] >=0) and (a[i] mod 2=0) and (a[i]>6) then begin

s : = s + a;

k : = k + 1;

end;

writeln ('среднее: ', s/k) ;

end.

Помогите с задачей на паскалеДан одноименный массив А. Определить среднее арифметическое положительных и четных элементов больших 6.

Помогите с задачей на паскале

Дан одноименный массив А. Определить среднее арифметическое положительных и четных элементов больших 6.