Распечатать анкетные данные студентов, получивших в первую сессию все оценки 5.в паскале

Var a,b,c,d,i: longint; s: string; m: array[1..100000] of string; begin readln(a); for i: =1 to a do begin readln(s); if s[length(s)]='5' then begin s[length(s)]: =' '; m[i]: =s; end; end; for i: =1 to a do begin if m[i]< > '' then writeln(m[i]); end; end.

для матрицы 8*8

код

00111111

01000001

10000001

01000001

00111111

00010001

00100001

11000001

объем 8 байт

для символьного 1 байт в ascii

2 байта в unicode