программа формирования в Паскале

[basyaka23]

Задана матрица а(4х3). Составить программу формирования новой матрицы посредством замены всех положительных элементов на 1, а остальных элементов на 0.

[McFrey]

а в чем трудность?

[McFrey]

эх ну ладно, разбирайтесь

program By_McFrey;

uses
  crt;

var
  k, j: integer; 
  a: array[1..4, 1..3] of integer; 

begin
  clrscr;
  Randomize; 
  
  writeln('Исходная матрица');
  for k := 1 to 4 do 
    for j := 1 to 3 do 
      a[k, j] := -5 + random(15); 
  
  
  for k := 1 to 4 do 
  begin
    for j := 1 to 3 do 
      Write(a[k, j]:3, ' '); 
    writeln; 
  end; 
  
  
  writeln('Новая матрица'); 
  for k := 1 to 4 do 
    for j := 1 to 3 do 
      if a[k, j] > 0 then a[k, j] := 1 else a[k, j] := 0; 
  
  
  for k := 1 to 4 do 
  begin
    for j := 1 to 3 do 
      Write(a[k, j]:3, ' '); 
    writeln; 
  end; 
  Readln; 
end.