Усовершенствуйте программу тablmul таким образом, чтобы в результате выводилась оценка, поставленная ученику. критерии для выставления оценок придумайте сами. ! буду используйте: 1. цикл с предусловием (цикл-пока): while < логическое выражение > do < оператор > 2. цикл с постусловием (цикл-до): repeat < оператор > until < логическое выражение >

Program tablmul; const size = 7; var ball: array[1..size] of real; ocenka: array[1..size] of integer; counter: integer; begin counter : = 1; while (counter < = size) do begin write('введите ', counter, ' ученика: '); readln(ball[counter]); counter : = counter + 1; end; counter : = 1; repeat if (ball[counter] > 90) then ocenka[counter] : = 5 else if (ball[counter] > = 75) and (ball[counter] < 90) then ocenka[counter] : = 4 else if (ball[counter] > = 50) and (ball[counter] < 75) then ocenka[counter] : = 3 else ocenka[counter] : = 2; counter : = counter + 1; until (counter > size); writeln(); for var i : = 1 to size do writeln('оценка ', i, ' ученика: ', ocenka[i]); end.

пломп лпмб_лпмплпмб й об лпмбц_лпмплпмб

(около кола _колокола и на колах _колокола)