Перевести с pascal to c++
uses crt;
var n,a:integer;
s:real;
begin
clrscr;
writeln('Вводите неотрицательные целые числа, окончание ввода отрицательное число:');
s:=0;
n:=0;
repeat
readln(a);
if a>=0 then
begin
s:=s+a;
n:=n+1;
end
until a<0;
if n=0 then write('Не введено ни одного неотрицательного числа')
else
begin
s:=s/n;
write('Ср. ариф. неотрицательных=',s:0:2);
end;
readln
end.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2025 SCHOLAR.TIPS - All rights reserved.