Question

дан школьный журнал. в нём стоит 25 оценок, от 1 до 5. напишите программу в паскале, что бы она выдавала количество пятёрок. умоляю!!!! очень нужно​

Answer 1

Ответ:

var

 a: array[0..25] of integer;

 i,b: integer;

begin

 for i:= 0 to 25 do

   readln(a[i]);

 for i:= 0 to 25 do

 begin

   if a[i] = 5 then

     b:= b + 1;    

 end;

 writeln('Количество пятерок: ',b);

end.

Объяснение:

вроде так

Answer 2

Вот пример программы на языке Паскаль, которая считает количество пятёрок в школьном журнале:

program CountFives;

var
  marks: array[1..25] of integer;
  count: integer;
  i: integer;

begin
  count := 0;

// Ввод оценок
  writeln('Введите оценки:');
  for i := 1 to 25 do
  begin
    write('Оценка ', i, ': ');
    readln(marks[i]);
  end;

// Подсчёт пятёрок
  for i := 1 to 25 do
  begin
    if marks[i] = 5 then
      count := count + 1;
  end;

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

Программа объявляет переменные `marks` (массив для хранения оценок) и `count` (переменная для подсчёта пятёрок). Затем она запрашивает у пользователя ввод оценок с помощью цикла `for`. Во втором цикле `for` программа проверяет каждую оценку и, если она равна 5, увеличивает счётчик `count`. После окончания цикла программа выводит количество пятёрок на экран.

Надеюсь, это поможет вам!