Задан двухмерный массив. Определить, сколько раз встречается число 1 среди элементов третьей строки матрицы.

Program project1;

uses

crt, math;

const

n=3;

var

s:real;

i, j, f:byte;

a:array [1 ... n, 1 ... n] of integer;

begin

for i:=1 to n do

begin

for j:=1 to n do

begin

write ('vvedite ', i,'.', j,' cifru ') ; readln (a[i, j]) ;

end;

end;

for i:=1 to n do

begin

for j:=1 to n do

begin

if (a[i, 3]=1) then inc (f) ;

end;

end;

writeln ('1 vstrechaetsya: ', f:2,' raz') ;

readln;

end.