Вася хочет узнать, какую оценку он получит в четверти по информатике. учитель придерживается следующей системы: вычисляется среднее арифметическое всех оценок в журнале, и ставится ближайшая целая оценка, не превосходящая среднего арифметического. при этом если у школьника есть двойка, а следующая за ней оценка – не двойка, то двойка считается закрытой, и при вычислении среднего арифметического не учитывается. входные данные вводится десять натуральных чисел от 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.

1)это направление куда будут двигаться все обьекты

2)число равное тому сколько раз исполнитель повторит ваш алгоритм

var s : string; symb : char; i : longint; begin  readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('в этом слове нет этого символа')  else begin                i: =0;                 while pos(symb,s)< > 0 do begin                                                                    write(pos(symb,s)+i,' ');                                                                     i: =i+1;                                                                     delete(s,pos(symb,s),1);                                                                 end;             end;   writeln;   writeln(i); end.