Поделитесь своими знаниями, ответьте на вопрос:
Вася хочет узнать, какую оценку он получит в четверти по информатике. учитель придерживается следующей системы: вычисляется среднее арифметическое всех оценок в журнале, и ставится ближайшая целая оценка, не превосходящая среднего арифметического. при этом если у школьника есть двойка, а следующая за ней оценка – не двойка, то двойка считается закрытой, и при вычислении среднего арифметического не учитывается. входные данные вводится десять натуральных чисел от 2 до 5 через пробел – оценки васи. выходные данные выведите натуральное число (от 2 до 5) – его четвертную оценку. входные данные: 2 5 2 5 2 5 2 5 2 5 2 2 2 2 2 2 2 2 2 5 5 5 5 5 5 5 5 5 5 2 выходные данные: 5 2 4
решение в среде паскаль:
var a: array[1..10] of integer; i,s,m: integer; f,t: real; begins: =0; writeln('write marks'); for i: =1 to 10 do beginreadln(a[i]); if i> 1 then begin if a[i-1]=2 then begin if a[i]< > 2 then begin s: =s-2; m: =m-1; end; end; end; s: =s+a[i]; m: =m+1; end; f: =s/m; t: =int(f); writeln('his or her mark is ', t: 2: 0); readln; end.