Напишите коментарии к листингу программы

[Владимир163]

Напишите коментарии к листингу программы

Program z1;
Uses crt;
var
   a:array[1..10,1..10]of integer;
   i,j,k,n,m,s,ss:integer;
begin
clrscr; s:=0; ss:=0;
Write ('Введите кол-во строк :');
readln (n);
Write ('Введите кол-во столбцов :');
readln (m);
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        write ('A[',i,j,']=');
        Readln(a[i,j]);
        end;
    writeln;
    end;
writeln('Исходная матрица:');
For i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:3);
    writeln;
    end;
for i:=1 to n do
    begin
    k:=0;
    for j:=1 to m do
        if a[i,j]=0 then k:=k+1;
    if k>=1 then
       begin
       writeln('Ноль есть в ',i,' строке');
       ss:=ss+1;
       s:=s+k;
       end;
    end;
if ss<1 then writeln('В матрице нет нулевых элементов!') else
   writeln('В ',ss,' строке(ах) всего ',s,' нулевых элемент(а)ов');
end.

[newerow1989]

Program z1;
Uses crt;
var
   a:array[1..10,1..10]of integer;
   i,j,k,n,m,s,ss:integer;
begin
clrscr; s:=0; ss:=0;//обнуление счетчиков
Write ('Введите кол-во строк :');
readln (n);
Write ('Введите кол-во столбцов :');
readln (m);
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        write ('A[',i,j,']=');
        Readln(a[i,j]);//запись массива
        end;
    writeln;
    end;
writeln('Исходная матрица:');
For i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:3);//вывод массива
    writeln;
    end;
for i:=1 to n do
    begin
    k:=0;//сначала k обнуляем
    for j:=1 to m do
        if a[i,j]=0 then k:=k+1;//если встретился ноль в матрице, то k увеличиваем на единицу (т.е. считаем кол-во нулей в i-й строке)
    if k>=1 then//если нули нашлись
       begin
       writeln('Ноль есть в ',i,' строке');
       ss:=ss+1;//считаем кол-во строк, где находятся нули
       s:=s+k;//считаем ОБЩЕЕ кол-во нулей в матрице
       end;
    end;
if ss<1 then writeln('В матрице нет нулевых элементов!') else
   writeln('В ',ss,' строке(ах) всего ',s,' нулевых элемент(а)ов');
end.