Программа в паскале: в массиве из n элементов найти среднее арифметическое...

Question

Программа в паскале: в массиве из n элементов найти среднее арифметическое отрицательных и среднее арифметическое положительных. for i:=1 to n do

Answer 1

Ответ:

раз массив уже дан, то:

...

var count_pl, count_min, sum_pl, sum_min: integer;

begin

count_pl:=0;

count_min:=0;

sum_pl:=0;

sum_min:=0;

for i:=1 to n do begin

if a[i] > 0 then begin

count_pl:= coun_pl + 1;

sum_pl:= sum_pl + a[i];

end

else begin

count_min:= count_min + 1;

sum_min:= sum_min + a[i];

end;

end;

writeln('Среднее положительное: ', sum_pl/count_pl);

writeln('Среднее отрицательное: ', sum_min/count_min);

end.

Comments

const перед var. После for i... нужно снова написать for i:=1 to n do begin

---

в итоге должно вот так быть?:
program k;
var
count_pl, count_min, sum_pl, sum_min: integer;
const n= 10;
a:array[1..n] of integer;
begin
for i:=1 to n do a[i]:=10-random(21);
if a[i] > 0 then begin
count_pl:= coun_pl + 1;
sum_pl:= sum_pl + a[i];
end
else begin
count_min:= count_min + 1;
sum_min:= sum_min + a[i];
end;
writeln('Среднее положительное: ', sum_pl/count_pl);
writeln('Среднее отрицательное: ', sum_min/count_min);
end.

---

const n= 10; ********

---

да, добавь в начале перед var Const n = 4; а затем вот это - a:array[1..n] of integer; потом после begin напиши for i:=1 to n do a[i]:=10-random(21);

---

а можно еще без него, пожалуйста