Задание 4. Массив содержит значения отметок 22 учащихся класса за контрольную работу (случайные числа от 2 до 10). После работы над ошибками учащиеся переписали работу и получили отметки на балл выше (кроме тех, кто получил 10). Составьте программу, которая выводит отметки, полученные учениками первоначально и после работы над ошибками.

Сохраняем исходные отметки в одном массиве, а результаты после исправления — в другом. Отметку увеличиваем на 1, только если она меньше 10.

var initial, corrected: array[1..22] of integer;
begin
  writeln('Первоначальные отметки:');
  for var i := 1 to 22 do
  begin
    initial[i] := Random(2, 11);
    write(initial[i], ' ');
  end;
  writeln;

  writeln('Отметки после работы над ошибками:');
  for var i := 1 to 22 do
  begin
    corrected[i] := initial[i];
    if corrected[i] < 10 then
      corrected[i] := corrected[i] + 1;
    write(corrected[i], ' ');
  end;
end.