ќң сандардың арифметикалық ортасын есептеу

 

program sandar;

var a: integer;††††††††† {клавиатурадан енг≥з≥лет≥н сан}

††††††† n: integer;††††††††† {сандардың саны}

††††††† S: integer;††††††††† {сандардың қосындысы}

††††††† m: real;††††††††† {арифметикалық орта}

begin

S:= 0;

n:= 0;

writeln (Соң сандардың арифметикалық ортасын есептеуТ);

writeln (Ссандарды стрелкадан соң енг≥зТ);

 

repeat

write (С>Т);

readln (a);

S:=S+a;

n:=n+1;

until a<=0;

n:=n-1;

writeln (Сенг≥з≥лген санТ,n);

writeln (Ссандардың қосындысыТ,S);

m:=S/n;

writeln (Сарифметикалық ортаТ, m:6:2);

writeln (Спрограмма а¤қтау үш≥н Т <Enter> басТ);

readln;

end.

 

††††††††††† јртқа