Какой объем видеопамяти необходим для хранения изображения при условии, что разрешающая дисплея равна 96×256 пикселей, а количество используемых цветов – 8? (ответ выразите в кбайтах ответ: 9

8 = 2^i
i = 3 (бит/пикс)
V = 96*256*3 = 73728 (бит)
1 байт = 8 бит,
1 Кбайт = 8*1024 = 8192 Кбит
V = 73728/8192 = 9 (Кбайт)

#include <iostream>
using namespace std;

int main() {
  const int S = 6;
  int matrix[S][S];
  cout << "Введите матрицу построчно, разделяя пробелами: " << endl;
  for (int i = 0; i < S; i++) {
    for (int j = 0; j < S; j++) {
      cin >> matrix[i][j];
    }
    cout << endl;
  }
  int p;
  cout << "p = ";
  cin >> p;
  int count = 0, max;
  for (int i = 0; i < S; i++) {
    max = matrix[i][0];
    for (int j = 1; j < S; j++) {
      if (matrix[i][j] > max) max = matrix[i][j];
    }
    if (max > p) count++;
  }
  cout << endl << "ответ: " << count;
  return 0;
}

1. Современное решение

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadLines('input.txt').Select(s->s.ToWords).
      Select(w->(w[0]+' '+w[1],
      (w[2].ToInteger+w[3].ToInteger+w[4].ToInteger)/3)).ToArray;
  var max:=s.Max(fb->fb[1]);
  s.Where(fb->fb[1]=max).Select(fb->fb[0]).Println(NewLine)
end.

2. Школьное решение в стиле "TurboPascal 1983г"

const
  n=50; // максимум лучших учеников
var
  f:Text;
  i,p,pa,b,sum,max:integer;
  sb:real;
  s,fio:string;
  flag:boolean;
  a:array[1..n] of string;
begin
  Assign(f,'input.txt');
  Reset(f);
  max:=0;
  pa:=1;
  while not Eof(f) do begin
    Readln(f,s);
    fio:='';
    flag:=true;
    for i:=1 to Length(s) do
      if s[i]<>' ' then fio:=fio+s[i]
      else
        if flag then begin
          fio:=fio+' ';
          flag:=false
          end
        else break;
    p:=Length(fio)+2;
    sum:=0;
    for i:=1 to 3 do begin
      b:=Ord(s[p])-Ord('0');
      sum:=sum+b;
      p:=p+2
      end;
    if sum>max then begin
      a[1]:=fio; pa:=2; max:=sum
      end
    else
      if sum=max then begin
        a[pa]:=fio; pa:=pa+1
        end;
    end;
  Close(f);
  for i:=1 to pa-1 do Writeln(a[i]);
end.

3. Пример выполнения

Исходные данные (файл во вложении)
Иванов И.И. 4 5 4
Сидорова С.С. 5 3 4
Петров П.П. 5 5 4
Козлов К.К. 3 3 5
Васечкин В.В. 4 4 4
Сорокина С.С. 5 5 4
Тарасова Т.Т. 5 4 5

Результат
Петров П.П.
Сорокина С.С.
Тарасова Т.Т.

Предвижу возражение, что современное решение "непонятно". А что, школьное понятнее? Текст в 42 строчки понятнее чем в 5 строк? (я выкинул из обоих текстов по одному begin и end, окаймляющие программу).
Что дольше писать и отлаживать? Где больше ошибок можно сделать? В конце-концов, что проще изучить с нуля - программирование в 5 строк или  в 42?
Вот и вопрос - для чего в школах массово изучают такое несуразное программирование?