Получить ответ

Александр Константинович program a; var s,a,n:integer;       r:real; begin  s:=0;  n:=0;  repeat   write('введи число ');   readln (a);   if a>=0 then     begin      s:=s+a;      n:=n+1;     end;  until a<0;  if n>0 then writeln ('Среднее арифметическое равно ',a/n)            else writeln ('Ві не вводили неотрицательных чисел'); end. Вот так можно написать. Не забудьте отметить. 22.04.15

Еva от 100 p. 4.9 399 отзывов Рейтинг: 121 998 6-й в Учебе и науке Общаться в чате Читать ответы

Похожие вопросы