Question

50баллов.Паскаль. Дан целочисленный массив из 30 элементов заданный случайным образом. элементы массива могут принимать целые значения от 0 до 100 -баллы учащихся за тест по информатике. составьте программу, которая позволяет найти и вывести количество учащихся, чья оценка за тест четная и больше 45 баллов.

Answer 1

//PascalABC.NET 3.4.2

begin

 var ar := arrrandom(30, 0, 100).Println;

 ar.Where(x -> (x mod 2 = 0) and (x > 45)).Print;

end.

Answer 2

Для решения этой задачи вам нужно создать целочисленный массив из 30 случайных элементов, а затем пройти по этому массиву, подсчитывая количество учащихся, чья оценка четная и больше 45 баллов. Вот программа на языке программирования Pascal, которая выполняет эту задачу:

pascalCopy code
program CountStudents;
var
  scores: array[1..30] of integer;
  count: integer;
  i: integer;
begin
  count := 0;

  // Заполнение массива случайными оценками от 0 до 100
  randomize;
  for i := 1 to 30 do
    scores[i] := random(101);

  // Подсчет учащихся, удовлетворяющих условию
  for i := 1 to 30 do
  begin
    if (scores[i] > 45) and (scores[i] mod 2 = 0) then
      count := count + 1;
  end;

  // Вывод результата
  writeln('Количество учащихся с четными оценками больше 45 баллов: ', count);
end.

Эта программа создает массив из 30 случайных оценок, а затем считает количество учащихся, удовлетворяющих условиям (оценка больше 45 и четная). Результат выводится на экран.