помогите решить задачу в паскале. Для массива Х найти среднее арифметическое положительных элементов массива.

Question

помогите решить задачу в паскале. Для массива Х найти среднее арифметическое положительных элементов массива.

Ирина Лукъянова Ученик (228), закрыт 14 лет назад

Answer 1

const n=5;
var x: array [1..n] of integer;
i,k:integer;
s,sr:real;
begin
writeln('vvedite elementi massiva');
for i:=1 to n do begin
write(' ',i,'-element');
readln(x);
end;
writeln(' massiv -');
for i:=1 to n do begin
write(x,' ');
end;
s:=0;
k:=0;
for i:=1 to n do begin
if (x>0) then begin s:=s+x; inc(k) end;
end;
sr:=s/k;
writeln(' sredne orifmiti4eskoe pol. elementov=', sr);
readln;
end.

Answer 2

for i:=1 to n do
if x(в квадр. скобочках i)>0 then begin
s:=s+x(в квадр. скобочках i);
inc(K);
END;
res:=s/k;