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

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.

ответы:  32 150 35 0 35 1

Задание 1:

a = 4b = 4b = a/2*b  = 4/2*4 = 2*4 = 8a = 2*a + 3*b = 2*4 + 3*8 = 8 + 24 = 32

Задание 2:

k = 5m = 90k = m-k*2  = 90-5*2 = 90-10 = 80m = k*3-m = 80*3-90 = 240-90 = 150

Задание 3:

a = 10b = 1b = a/2*b  = 10/2*1 = 5*1 = 5a = 2*a + 3*b = 2*10 + 3*5 = 20 + 15 = 35

Задание 4:

a = 0b = 2b = 2 + a + 4*b  = 2 + 0 + 4*2 = 2 + 8 = 10a = b/2*a = 10/2*0 = 5*0 = 0

Задание 5:

a = 8b = 3a = 3 * a - b  = 3 * 8 - 3 = 24 - 3 = 21b = ( a / 3 ) * ( b + 2 ) = ( 21 / 3 ) * ( 3 + 2 ) = 7 * 5 = 35

Задание 6:

a = 7b = 2a = b*4 + a*3  = 2*4 + 7*3 = 8 + 21 = 29b = 30 - a = 30 - 29 = 1

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

var

  k: integer;

begin

  readln(k);

  if k< 0 then

    writeln('не может такого быть')

  else

    begin

      write('мы нашли в лесу ',k,' гриб');

      if (k mod 100 in [5..19]) then

        writeln('ов')

      else if (k mod 10 in [2..4]) then

        writeln('а')

      else if (k mod 10=1) then

        writeln

      else

        writeln('ов');

    end;

end.