Question

написать программу,которая вычисляет среднее арифметическое 3 целых чисел

Answer 1

Листинг программы с решением:

var a,i:integer;

s:real;

begin

 for i:=1 to 3 do begin

writeln ('Введите число:');

readln (a);

s:=s+a;

end;

s:=s/3;

writeln(s);

end.