Versiunea in limba romana Версия на русском языке
...:::   Главная страница · О Паскале · Download · О сайте:::...
 
На сайте:  
Реклама  

 

HotLog online dating service
HotLog
HotLog доставка цветов

 

Cреднее арифметическое нескольких чисел

 

Вводить числа с клавиатуры и суммировать их до тех пор пока не будет введео отрицательное число. Найти среднее арифметическое введенных чисел(отрицательное не учитывать)


var x,sum,sar:real;
k:integer;
BEGIN
sum:=0;k:=-1;
repeat
sum:=sum+x;
k:=k+1;
readln(x);
until x<0;

if k>0 then begin
sar:=sum/k;
writeln('S_Ar= ',sar:0:3); end
else writeln('K=0, S_Ar=XXX');
readln;
END.

<< Назад

 
Добавленно: 06.08.04    Автор: Аня

Copyright © Rocko, 2004. Last Updated : 1 september 2004

Hosted by uCoz