80 ! 92. на деловой встрече были писатель, , биолог и врач. их звали (по алфавиту): анна, дмитрий, екатерина и стас. дмитрий сказал биологу, что только что встретил екатерину с пончиками. анна сидела напротив врача и рядом с . врач про себя размышлял о том, что стас - глупое имя. назовите специальность каждого.

Писатель Дмитрий, химик Стас, биолог Анна, врач Екатерина

Дмитрий- не биолог; писатель, химик врач
Екатерина - не биолог; писатель, химик, врач
Анна- не врач и не химик; писатель, биолог
Стас- не врач; химик, писатель, биолог

Дмитрий сказал Анне/Стасу
Анна сидела рядом со Дмитрий/Екатериной
Дмитрий/Екатерина размышлял(а) о том, что Стас-глупое имя

Анна-биолог
Дмитрий-врач
Екатерина-писатель
Стас-химик

Как-то так
#include <iostream>
using namespace std;
int main(){    cout << "Vvedute kol-vo ocenok" << endl;
    int n,i,a,Four,Five;    n = i = a = Four = Five = 0;
    cin >> n;
    for (i = 1; i <= n; i++)    {        cin >> a;        if (a == 4){         Four++;}  else if (a == 5)      {         Five++;      }    }    if (Four > Five){   cout << "Four" << endl;} else if (Five > Four)      {   cout << "Five" << endl;      }      else      {         cout << "Equal"<< endl;      }      cout << "Kol-vo 4: " << Four << " Kol-vo 5: " << Five << endl;    return 0;}

//Pascal ABC.NET v3.1 сборка 1172

var
  ar: array of integer;
  n, k2, k3, k4, k5, i: integer;
  r: real;

begin
  write('Сколько учеников?');
  readln(n);
  setlength(ar, n);
  writeln('Введите оценки:');
  for i := 0 to n - 1 do
  begin
    readln(ar[i]);
    case ar[i] of
      2: inc(k2);
      3: inc(k3);
      4: inc(k4);
      5: inc(k5);
    else
      writeln('Не оценка');
      exit;
    end;
  end;
  writeln('2:', k2);
  writeln('3:', k3);
  writeln('4:', k4);
  writeln('5:', k5);
  write('Успеваемость=', (k3 + k4 + k5) / n * 100:0:1);
end.

Пример ввода:
Сколько учеников?6
Введите оценки:
2
2
3
4
5
5
Пример вывода:
2:2
3:1
4:1
5:2
Успеваемость=66.7