Паскаль

  • Автор темы Guest
  • Дата начала
G

Guest

#1
Код:
program z_24_27;
uses crt;
var a:array[1..4,1..4] of integer;
k,i,j:integer;
begin
clrscr;
for i:=1 to 4 do
for j:=1 to 4 do
begin
write ('a[',i,',',j,']=');
readln (a[i,j]);
end;
k:=0;
for i:=1 to 4 do
for j:=1 to 4 do
if a[i,j]<0 then
begin
a[i,j]:=0;
k:=k+1;
end;
for i:=1 to 4 do
for j:=1 to 4 do
writeln (a[i,j]:5);
writeln('kol= ',k);
readln;
end.
подскажите пожалуйста как сделать чтоб матрицу выводила программа
1 2 3 5
4 5 6 3
7 8 9 4
4 5 7 3...
а то у меня выводится все в один столбец:(
 

hosm

* so what *
18.05.2009
2 442
6
#2
Код:
for i:=1 to 4 do begin
for j:=1 to 4 do write (a[i,j]:5); 
writeln;
end;