Составить блок-схему алгоритма подсчета точек в тексте. признак конца текста «? »

81920 бит : 8 = 10240 байт

10240 байт : 1024 = 10 килобайт

вроде бы 100*100=10000 бит=1250 байта

добавить ввод номера столбца.

строку if (j = 2) and (a[i, j] > 10) then заменить

на if (j = m) and (a[i, j] > 10) then  где m- введенный номер столбца.

uses crt; var a,s: integer; begins: =0; writeln('введите числа'); repeatreadln(a); if (a> 0) then s: =s+a; until a=0; writeln(s); end.