программа в паскале:
в массиве из n элементов найти среднее арифметическое отрицательных и среднее арифметическое положительных.
for i:=1 to n do
в массиве из n элементов найти среднее арифметическое отрицательных и среднее арифметическое положительных.
for i:=1 to n do
More Questions From This User See All
Answers & Comments
Ответ:
раз массив уже дан, то:
...
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.
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.