var S: array[1..5,1..5] of integer;
Smax:integer;
i,j,RowCount,ColCount: integer;
begin
write('Col M=');
readln(ColCount);
write('Row N=');
readln(RowCount);
writeln('***');
for i:=1 to ColCount do
for j:=1 to RowCount do
begin
write('Enter the Array [',i,',',j,']=');
readln(S[i,j]);
end;
Writeln;
Writeln(' S(MxN):');
Writeln;
for i:=1 to RowCount do
begin
for j:=1 to ColCount do
Write('[',j,',',i,']=',S[j,i]:7,' ');
writeln;
end;
for i:=1 to ColCount do
begin
SMax:= 0;
for j:=1 to RowCount do
if Smax<S[i,j] then Smax :=S[i,j];
for j:=1 to RowCount do
if S[i,j]=0 then S[i,j]:=Smax;
End;
writeln('novi massiv x');
for i:=1 to RowCount do
begin
for j:=1 to ColCount do
write('[',j,',',i,']=',s[j,i]:3,' ');
writeln;
end;
Readln;
end.
|
Решите задачю до 6-го надо пожалуйста!!! я Вас прошу завал ж..а полнейшая... 
