Дана квадратная матрица размерностью МхН(М и Н - целые положительные числа, причем не больше 10)

@M@ksiM · Регистрация: 13.06.2010

Студворк — интернет-сервис помощи студентам

Вывести на экран матрицу, а затем в каждом столбце подсчитать количество нулевых элементов.

Pascal

var
a:array[1..10,1..10] of integer;
i,j,m,n,p: integer;
begin
writeln('vvedite 4islo strok ');
readln(n);
writeln('vvedite 4islo stolbcov ');
readln(m);
writeln('ishodnaya matrica');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
for j:=1 to m do
begin
p:=0;
for i:=1 to n do
if i<>0 then p:=0
else p:=p+1;
writeln ('v stolbce ',j,' = ',p);
end;
readln;
readln;
end.

что не так после 21 строки?

Добавлено через 15 минут
ребят... помогите... пожалуйста...

@Puporev · 30.06.2010, 11:03

Pascal

for j:=1 to m do
  begin
   p:=0;
   for i:=1 to n do
   if a[i,j]=0 then  p:=p+1;
   writeln ('v stolbce ',j,' = ',p);
  end;

	30.06.2010, 11:03

Опции темы