Program Kontr1; Const
a : array[1..25] of integer = (4, 5, 3, 3, 4, 4, 2, 5, 3, 4, 5, 5, 2, 3, 3, 3, 4, 4, 5, 2, 2, 5, 4, 4, 4);
Var
k : integer;
Begin
write('Введите номер ученика:');
readln( ); {ввод номера ученика}
writeln( ); {вывод отметки ученика с этим номером}
End.

{Даны отметки учеников за контрольную работу (по пятибальной системе).

Отметки перечислены в том порядке, в каком ученики идут по списку в журнале.

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

Вывести на экран отметку того ученика, номер которого укажет пользователь.}

Элиманго    3   09.02.2021 08:55    9