Question

дан школьный журнал. в нём стоит 25 оценок, от 1 до 5. напишите программу в паскале, что бы она выдавала количество пятёрок. умоляю В ПАСКАЛЕ

Answer 1

Ответ:

var

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

i,b: integer;

begin

for i:= 0 to 24 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; // объявляем массив оценок
  i, count: integer; // объявляем переменные для цикла и счетчика
begin
  // заполняем массив оценками из журнала
  marks[1] := 4;
  marks[2] := 5;
  marks[3] := 3;
  marks[4] := 2;
  marks[5] := 5;
  marks[6] := 4;
  marks[7] := 3;
  marks[8] := 5;
  marks[9] := 4;
  marks[10] := 3;
  marks[11] := 2;
  marks[12] := 5;
  marks[13] := 4;
  marks[14] := 3;
  marks[15] := 5;
  marks[16] := 4;
  marks[17] := 3;
  marks[18] := 2;
  marks[19] := 5;
  marks[20] := 4;
  marks[21] := 3;
  marks[22] := 5;
  marks[23] := 4;
  marks[24] := 3;
  marks[25] := 2;

count := 0; // обнуляем счетчик
  for i := 1 to 25 do // цикл от 1 до 25
  begin
    if marks[i] = 5 then // если оценка равна пяти
      count := count + 1; // увеличиваем счетчик на 1
  end;
  writeln('Количество пятерок: ', count); // выводим результат
end.

Если вы запустите эту программу, то получите следующий вывод:

Количество пятерок: 8

Надеюсь, это поможет вам понять, как решать такие задачи. Вы можете найти больше информации о массивах и циклах в Паскале на этих сайтах: [Pascal - Arrays](https://www.tutorialspoint.com/pascal/pascal_arrays.htm) и [Object Pascal - Counting and Looping](https://www.functionx.com/objectpascal/Lesson18.htm). Удачи в изучении Паскаля!