Question

Массив из 15 целых чисел. на отрезке от [-10; 10] а) вычислить количество положительных элементов; б) вычислить сумму положительных элементов массива; в) вычислить среднеарифметический элементов стоящих на четных местах.

Answer 1

Var m,j,r,n,sum,sumI,k:integer;C,b:Array[1..15]of integer;sr:real;Beginfor r:=1 to 15 do beginC[r]:= random(20)-10;  write(C[r]:4);if C[r] >0  then begin n := n +1;sum:= sum + C[r];end;if r mod 2 = 0  then begin k := k +1;sumI:= sumI + C[r];j:=j+1;b[j]:=C[r];end;end;writeln;writeln('Kоличество положительных',n:4);writeln('Cуммa положительных',sum:4);writeln('Cуммa элементов стоящих на четных местах',sumI:4);writeln('Cреднеарифметическое элементов стоящих на четных местах',sumI/k:4);foreach m in b dowrite(m:4);end.