Найти сумму и среднее арифметическое положительных - вопрос №150250 от Dima1234567y 02.01.2022 14:57

Question

Информатика: Найти сумму и среднее арифметическое положительных элементов массива a(n)

Dima1234567y · Answer

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

i,s,n,k:integer;

Begin

read(n);

for i := 1 to n do begin

read(a[i]);

if a[i]>0 then begin

s:=s+a[i];

k:=k+1;

end;

writeln(s, s/k);

End.