Question

Дано N оценок (от 2 до 5). Сколько среди них двоек и четверок? Pascal ABC net​

Answer 1

##

var n := ReadInteger;

var a := ArrRandom(n, 2, 5);

a.Println;

Print('Двоек:', a.CountOf(2), '  четверок:', a.CountOf(4))

Answer 2

Для подсчета количества двоек и четверок среди N оценок (от 2 до 5) вам потребуется написать соответствующий код на языке программирования. Вот пример кода на языке Pascal:

pascalCopy code
program CountTwosAndFours;
var
  N, grade, countTwos, countFours: integer;
begin
  countTwos := 0;
  countFours := 0;
  
  writeln('Введите количество оценок N:');
  readln(N);
  
  for var i := 1 to N do
  begin
    writeln('Введите оценку (от 2 до 5) номер ', i, ':');
    readln(grade);
    
    if (grade = 2) then
      countTwos := countTwos + 1
    else if (grade = 4) then
      countFours := countFours + 1;
  end;
  
  writeln('Количество двоек: ', countTwos);
  writeln('Количество четверок: ', countFours);
end.

Этот код позволяет ввести N оценок и подсчитать количество двоек и четверок среди них. Вы можете выполнить его в среде разработки Pascal ABC, введя оценки и увидев результат в виде количества двоек и четверок.