Question

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

Answer 1

const n = 22;

var A: array[1..n] of integer;

begin

write('До переписывания:');

for var i:= 1 to n do begin

A[i] := 2 + random(9);

write(' ', A[i]);

end;

writeln;

write('После переписывания:');

for var i:= 1 to n do begin

if (A[i] <> 10) then

A[i] := A[i] + 1;

write(' ', A[i]);

end;

end.

Answer 2

Вот пример программы на Pascal, которая решает вашу задачу. Программа создает массив, заполняет его случайными отметками от 2 до 10, затем исправляет работы учеников, увеличивая их отметки (кроме тех, кто получил 10), и выводит исходные и исправленные отметки:

program MarksCorrection;

const
  NumStudents = 22;

var
  Marks: array[1..NumStudents] of Integer;
  i: Integer;

// Заполнение массива случайными отметками от 2 до 10
procedure GenerateMarks;
begin
  Randomize;
  for i := 1 to NumStudents do
    Marks[i] := Random(9) + 2; // случайное число от 2 до 10
end;

// Исправление отметок, увеличиваем на 1 (кроме тех, кто получил 10)
procedure CorrectMarks;
begin
  for i := 1 to NumStudents do
  begin
    if Marks[i] < 10 then
      Marks[i] := Marks[i] + 1;
  end;
end;

// Вывод отметок
procedure DisplayMarks;
begin
  writeln('Исходные отметки:');
  for i := 1 to NumStudents do
    write(Marks[i], ' ');

writeln; // Переход на новую строку

writeln('Отметки после коррекции:');
  for i := 1 to NumStudents do
    write(Marks[i], ' ');

writeln; // Переход на новую строку
end;

begin
  GenerateMarks;   // Генерация случайных отметок
  DisplayMarks;    // Вывод исходных отметок
  CorrectMarks;    // Исправление отметок
  DisplayMarks;    // Вывод исправленных отметок
end.

Программа использует процедуры для генерации, вывода и исправления отметок, что делает код более структурированным. Пожалуйста, учтите, что каждый раз при запуске программы отметки будут генерироваться случайным образом, поэтому результаты могут отличаться при каждом выполнении.