1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Паскаль

Тема в разделе "Вопросы новичков и не только", создана пользователем -, 15 июн 2010.

  1. Гость

    Репутация:
    0
    Код:
    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 *

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

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