---------------------------------------------
Посчитать количество столбцов в матрице А, размерностью KxL, которые вмещают в себе только положительные элементы.
Вывести результат подсчета и входящую матрицу на экран. - язык Паскаль
program matrica;
const eps=1E-10;
var g,kol,i,k,l,j:integer;
a:array[1..100,1..100] of integer;
begin
write('количество строк=');readln(k);
write('количество столбцов=');readln(l);
kol:=0;
for i:=1 to k do
begin
for j:=1 to l do
begin
write('введите элемент ',i,'й строки и ',j,'-го столбца:');
readln(a[i,j]); if a[i,j]>Eps then
kol:=kol+1;
end;
end;
writeln('количество столбцов с только положортельными эелементами=',kol:5);
begin
writeln('начальная матрица :');
for i:=1 to k do begin
for j:=1 to l do
write(a[i,j]:6);
writeln;
end;
end;
end.
ошибка где-то здесь
begin
write('введите элемент ',i,'й строки и ',j,'-го столбца:');
readln(a[i,j]); if a[i,j]>Eps then
kol:=kol+1;
end;
