Учитель вводит оценки за урок. ввод оценок заканчивается, если введено 6. находиться...

Question

Учитель вводит оценки за урок. ввод оценок заканчивается, если введено 6. находиться среднее арифметическое всех введенных оценок. если ср.арифм. меньше 3,5 , то вывод сообщения "результат плохой", иначе вывести сообщение "материал усвоег успешно"

Answer 1

Var a,s,n:integer;
begin
  repeat
    writeln('Введите оценку ');readln(a);
    if a<>6 then begin
      n:=n+1; s:=s+a;
    end;
  until a=6;
  if(s/n)<3.5 then writeln(s/n,' - результат плохой')<br>  else writeln(s/n,' -  материал усвоен успешно');
end.

Тест №1
Введите оценку
3
Введите оценку
4
Введите оценку
5
Введите оценку
6
4 -  материал усвоен успешно

Тест №2
Введите оценку
3
Введите оценку
2
Введите оценку
4
Введите оценку
3
Введите оценку
6
3 - результат плохой

Comments

большое спасибо)