Вопрос, который вызвал трудности
Усовершенствуйте программу TablMul таким образом, чтобы в результате выводилась оценка, поставленная ученику. Критерии для
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «ЕГЭ (школьный)». Ваш вопрос звучал так: Усовершенствуйте программу TablMul таким образом, чтобы в результате выводилась оценка, поставленная ученику. Критерии для
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
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.
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.