Potatosalad
5 год назад
В Pascal ввести с клавиатуры 20 чисел.найти среднее арифметическое отрицательных
ОТВЕТЫ
Zahari
Oct 24, 2020
Program n1;
var i,sum,a,k: integer;
begin
sum:=0;
k:=0;
for i:=1 to 20 do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
write(sum/k);
end.
var i,sum,a,k: integer;
begin
sum:=0;
k:=0;
for i:=1 to 20 do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
write(sum/k);
end.
932
Смежные вопросы:
