Информатика, вопрос задал lakOR555 , 2 года назад

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

for i:=1 to n do

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

Ответил DlowPro

Ответ:

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

...

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;

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

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

end.

lakOR555: вы имеете ввиду, что массив уже дан, про это : for i:=1 to n do?

DlowPro: раз ты написал for i:=1 to n do, то я подумал что нужно писать программу от этой части, это значит что массив уже дан

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

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

DlowPro: const n= 10; ********

lakOR555: в итоге должно вот так быть?:
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.

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