Определить количество отрицательных элементов - Pascal ABC (12619)
Формулировка задачи:
Определить количество отрицательных элементов в тех строках, которые содержат хотя бы один нулевой элемент.
Решение задачи: «Определить количество отрицательных элементов»
textual
Листинг программы
for i:=1 to mx do for j:=1 to nx do Read(a[i,j]); ReadLn;
WriteLn('A =');
for i:=1 to mx do begin
for j:=1 to mx do Write(' ',a[i,j]:3); WriteLn;
end;