
Гермоген
6 год назад
6. Составить алгоритм и написать программу вычисления суммы и среднего значения только отрицательных чисел из вводимых N произвольных (как положительных, так и отрицательных) целых чисел.N не больше 10
ОТВЕТЫ

Ernestovich
Aug 7, 2019
Var a:array[1..100] of integer;
i,n,s,k:integer;
begin
s:=0; k:=0;
write(Введите кол-во чисел: ); readln(n);
write(Введите числа: );
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]lt;0 then begin
s:=s+a[i];
inc(k);
end;
if klt;gt;0 then
begin writeln(Ср.знач. отрицательных чисел: ,s/k);
writeln(Сумма отрицательных чисел: ,s); end
else writeln(Отрицательных членов нет);
end.
i,n,s,k:integer;
begin
s:=0; k:=0;
write(Введите кол-во чисел: ); readln(n);
write(Введите числа: );
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]lt;0 then begin
s:=s+a[i];
inc(k);
end;
if klt;gt;0 then
begin writeln(Ср.знач. отрицательных чисел: ,s/k);
writeln(Сумма отрицательных чисел: ,s); end
else writeln(Отрицательных членов нет);
end.
192