Var a,n,s: integer; begin //0 - условие окончания ввода последовательности repeat readln(a); if (a>99) and (a<1000) then begin s:=s+a;n:=n+1; end; until a = 0; if n = 0 then writeln ('В последовательности 3-х значных нет') else writeln('Среднее арифметическое 3-х значных чисел = ',s/n); end.
Тест №1 1 5 234 123 5 0 Среднее арифметическое 3-х значных чисел = 178.5
Тест №2 3 5 5678 12 0 В последовательности 3-х значных нет
a,n,s: integer;
begin
//0 - условие окончания ввода последовательности
repeat
readln(a);
if (a>99) and (a<1000) then begin
s:=s+a;n:=n+1;
end;
until a = 0;
if n = 0 then writeln ('В последовательности 3-х значных нет')
else writeln('Среднее арифметическое 3-х значных чисел = ',s/n);
end.
Тест №1
1
5
234
123
5
0
Среднее арифметическое 3-х значных чисел = 178.5
Тест №2
3
5
5678
12
0
В последовательности 3-х значных нет