Const Sz = 1000; var a: array [1..Sz] of integer; a1: array [1..Sz] of integer; a2: array [1..Sz] of integer; a3: array [1..Sz] of integer; M: integer; N: integer; i: integer; k: integer;begin read(M); readln(N); for k:=1 to N do begin read(a[i]); readln(a1[i]); if (a[i]<>0) then a3[i]:=1 else a3[i]:=0; end; for k:=1 to N do begin if(a3[i]<>0) then begin for i:=1 to i do begin if(a3[k]=0) then d[i]:=1; if (a2[k]=i) then d[k]:=0; end; writeln(a3[i]) end;end;end. вроде так
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк в матрице:'); var n:=ReadInteger('Количество столбцов в матрице:'); Writeln('*** Исходная матрица[',m,',',n,'] ***'); var a:=MatrRandom(m,n,-50,50); a.Println(4); for var i:=0 to m-1 do for var j:=0 to n-1 do if a[i,j].IsEven then a[i,j]:=1; Writeln('*** Результирующая матрица[',m,',',n,'] ***'); a.Println(4); end.
вроде так