В массиве С(10,12) определить количество нулевых элементов в каждой строке. Вывести номер строки и количество нулевых элементов для тех стро
Условие задачи:В массиве С(10,12) определить количество нулевых элементов в каждой строке. Вывести номер строки и количество нулевых элементов для тех строк, где полученное количество больше 3.
program PascalGuru;
var C:array[1..10,1..12] of integer; {описание переменных} i,j,count:integer;
begin for i:=1 to 10 do for j:=1 to 12 do begin write ('C[',i,',',j,']='); readln (C[i,j]); end; {ввод массива}
write ('Vot vvedennaya vami matrica A:'); for i:=1 to 10 do begin writeln; for j:=1 to 12 do write (C[i,j]:8,' '); end; {вывод массива на экран}
writeln;writeln;
for i:=1 to 10 do {проходим по всем 10 строкам} begin count:=0; {обнуляем счётчик кол-ва} for j:=1 to 12 do {проходим по всем 12 столбцам} if C[i,j]=0 then inc(count); {если текущий=нулевой эл-т = тогда увеличиваем счётчик на +1} if(count>3) then {если кол-во в текущей строке больше 3} writeln('Kol-vo v ',i,' stroke= ',count); {выводим на экран} end;