Именно тот паскаль... Двумерные массивы

[Сеня]

В этой программе меня интересует, что такое S?


program z1;
uses crt;
type stroka=array[1..20] of integer;
table=array[1..20] of stroka;
var i,j,n,m,c,S,g:integer;
a:table;

procedure wwod;
var i,j:integer;
begin
clrscr;
write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® бва®Є, n=');readln(n);
write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® бв®«Ўж®ў, m=');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;
end;

procedure wywod;
var i,j:integer;
begin
clrscr;
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;end;

begin
clrscr;
wwod;
wywod;
g:=A[1,1];
for i:=1 to n do begin
g:=A[i,j];
for j:=1 to m do begin
if g=A[i,j] then
S:=S+1;
if s=m then
c:=c+1;
end;
S:=0;
end;

write(c);
readkey;
end.

[maladoy]

s-счетчик элементов равных последнему в своей строке!!!

Странный код.

вот с чем согласен с тем согласен

[Arigato]

Странный код. А вообще, S - переменная типа Integer.