Question

В массиве записаны оценки ученика по 10 предметам. Определить общее количество четверок и пятерок Помогите,пожалуйста,паскаль-одномерный массив

Answer 1

Const
   N = 10;
Var
   A:array[1..N] of byte;
   i,k:integer;
Begin
k:=0;
Write('Текущие оценки по предметам:');
For i:= 1 to N do
    Begin
    A[i]:=random(5)+1;
    Write(' ',A[i]);
    if (A[i] = 4)or(A[i] = 5) then k:=k+1
    End;
WriteLn;
WriteLn('Общее количество четвёрок и пятёрок: ',k);
End.

Answer 2

Конечно, я помогу вам написать код на Pascal для подсчета количества четверок и пятерок в массиве оценок. Предположим, у вас есть массив grades размером 10 элементов, содержащий оценки ученика по 10 предметам. Вам нужно определить количество четверок и пятерок в этом массиве. Вот как может выглядеть код:

pascalCopy code
program CountGrades;

const
  NumSubjects = 10;

var
  grades: array[1..NumSubjects] of Integer;
  foursCount, fivesCount, i: Integer;

begin
  foursCount := 0; // Инициализация счетчика четверок
  fivesCount := 0; // Инициализация счетчика пятерок

  // Заполнение массива оценками
  writeln('Введите оценки по 10 предметам:');
  for i := 1 to NumSubjects do
  begin
    write('Предмет ', i, ': ');
    readln(grades[i]);
  end;

  // Подсчет четверок и пятерок
  for i := 1 to NumSubjects do
  begin
    case grades[i] of
      4: Inc(foursCount);
      5: Inc(fivesCount);
    end;
  end;

  // Вывод результатов
  writeln('Количество четверок: ', foursCount);
  writeln('Количество пятерок: ', fivesCount);

  readln;
end.

Пример работы программы:

yamlCopy code
Введите оценки по 10 предметам:
Предмет 1: 5
Предмет 2: 4
Предмет 3: 3
Предмет 4: 5
Предмет 5: 4
Предмет 6: 5
Предмет 7: 3
Предмет 8: 4
Предмет 9: 5
Предмет 10: 4
Количество четверок: 4
Количество пятерок: 4

Пожалуйста, учтите, что этот код демонстрирует базовый пример и не содержит проверок на ввод корректных оценок.