В массиве хранятся сведения об оценках 25 учеников по химии. Определить количество...

Question

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

Answer 1

Const
   N = 25;
Var
   A:array[1..N] of byte;
   i,k:byte;
Begin
k:=0;
Write('Текущие оценки по Химии:');
For i:= 1 to N do
   Begin
   A[i]:=random(5)+1;
   Write(' ',A[i]);
   if A[i]<3 then k:=k+1;<br>   End;
WriteLn;
WriteLn('Количество отстающих учеников: ',k);
End.