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

Question

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

Нюра

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

Есть ответ

18.12.2022

488

Ответ

Answer 1 · 18.12.2022

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;

end;

writeln(s, s/k);

End.

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

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

Ответ

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; end; writeln(s, s/k); End.

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;

end;

writeln(s, s/k);

End.