Задание:
Задан двухмерный массив. Определить, сколько раз встречается число 1 среди элементов третьей строкиматрицы.
Решение:
Program project1; usescrt,math; constn=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.
Знаете другой ответ?