Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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, - результат плохой)
  else writeln(s/n, -  материал усвоен успешно);
end.

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

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