Question

ДАМ 60 БАЛЛОВ, помогите пожалуйста.

Answer 1

Ответ:

begin

 write('Введите размер класса: ');

 var size := readinteger;

 var A := new integer[size];

 write('Введите оценки: ');

 var rating := 0;

 for var i := 0 to A.Length - 1 do

 begin

   read(rating);

   A[i] := rating;

 end;

 for var i := 0 to A.Length - 1 do

 begin

   writeln(i, ' - ', A[i]);

 end;

end.

Объяснение:

begin  // Начало программы

 write('Введите размер класса: ');  // Вывод сообщения в консоль

 var size := readinteger;  // Считываем размер класса с клавиатуры

 var A := new integer[size];  // Создаем массив А размером size

 write('Введите оценки: ');  // Вывод сообщения в консоль

 var rating := 0;  // Переменная, хранящая оценки

 for var i := 0 to A.Length - 1 do  // Идём от 0 до размера массива - 1

 begin  // Начало цикла

   read(rating);  // Считываем оценку с клавиатуры

   A[i] := rating;  // Запоминаем оценку в массив

 end;  // Конец цикла

 for var i := 0 to A.Length - 1 do  

 begin  // Начало цикла // Идём от 0 до размера массива - 1

   writeln(i, ' - ', A[i]);  // Выводим в формате "Порядковый номер - оценка"

 end;  // Конец цикла

end. // Конец программы