Question

Составить программу на языке Паскаль для решения следующей задачи: Дан одномерный массив. В массиве хранятся оценки по информатике учеников 9 класса. Заполнить массив случайными числами, лежащими в диапазоне от 2 до 5 включительно. Вычислите среднюю оценку в классе по информатике. Входные данные для размерности массива задайте самостоятельно. На проверку нужно прислать текст кода программы, результат работы кода в виде скриншота окна программы с отображением кода и полученного результата. Программная реализация обязательна!

Answer 1

Программа:

Pascal:

var

 arr: array of integer;

 n, i, sum: integer;

begin

 write('Количество учеников: '); readln(n);

 SetLength(arr, n);

 

 for i := 0 to n - 1 do begin

   arr[i] := random(2, 5);

   sum += arr[i];

 end;

 writeln('Оценки учеников в классе: ', arr);

 writeln('Средняя оценка: ', sum/n);

end.

Для начала выделяем память массиву целых чисел, после - регистрируем переменные, которые будем использовать далее. Запрашиваем кол-во учеников (это и будет размерностью массива), устанавливаем длину массива - введённое число n. Циклом проходима по элементам массива, устанавливаем рандомное значение от 2 до 5 и суммируем элементы. В конце выводим сам массив и высчитываем среднюю оценку как среднее арифметическое чисел.

Answer 2

Программа на языке Паскаль для решения данной задачи будет выглядеть следующим образом:

program AverageGrade;

const
  N = 25; // Размерность массива

var
  grades: array[1..N] of integer;
  i, sum: integer;
  average: real;

begin
  // Заполнение массива случайными числами от 2 до 5
  randomize;
  for i := 1 to N do
  begin
    grades[i] := random(4) + 2;
  end;

// Вычисление средней оценки
  sum := 0;
  for i := 1 to N do
  begin
    sum := sum + grades[i];
  end;
  average := sum / N;

// Вывод результатов
  writeln('Оценки учеников по информатике:');
  for i := 1 to N do
  begin
    write(grades[i], ' ');
  end;
  writeln;
  writeln('Средняя оценка в классе по информатике: ', average:0:2);
end.

Данная программа создает массив из 25 элементов, заполняет его случайными оценками от 2 до 5, вычисляет среднюю оценку и выводит на экран массив оценок и полученный результат. Для проверки программы необходимо скомпилировать и запустить ее, после чего прислать скриншот окна программы с отображением кода и полученного результата.