Паскаль

Тема в разделе "Pascal and Delphi", создана пользователем -, 15 июн 2010.

  1. Гость

    Код (Delphi):
    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...
    а то у меня выводится все в один столбец:(
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    Код (Delphi):
    for i:=1 to 4 do begin
    for j:=1 to 4 do write (a[i,j]:5);
    writeln;
    end;
     
Загрузка...

Поделиться этой страницей