Вычислить среднее арифметическое положительных элементов массива

147

392

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

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

DaniilTatarinov

Информатика

4,4(42 оценок)

var a: array[1..10] of integer; i,k,s: integer; begin s: =0; k: =0; for i: =1 to 10 do readln(a[i]); for i: =1 to 10 do if a[i]> 0 then begin s: =s+a[i]; k: =k+1; end; writeln(s/k); end.

Anif

Информатика

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

Program zadacha; var a,b,s: integer; begin writeln('введите кол-во жителей: '); readln(a); writeln('введите площадь государства: '); readln(b); s: =a/b; writeln(s); end.