Question

PascalABC
1. Задан массив А(N). Получить из него массив В, состоящий из элементов массива А, значения которых больше 0.
2. Задан двухмерный массив целых чисел A[N,M]. Найти строки, содержащие нулевые элементы. Вывести исходный массив и индексы найденных строк.

Answer 1

1.
var i,N,c: integer;

var a: array of integer;

var b: array of integer;

begin

c:=0;

readln(N);

Setlength(a,N);

setlength(b,N);

for i:=0 to a.Length-1 do

begin

readln(a[i]);

if a[i] >0 then

begin

b[c]:=a[i];

c:=c+1;

end;

end;

Setlength(b,c);

write(b);

end.

2.

var N,M: integer;

type a = array of array of integer;

var matr: a;


function CreateMatrix(N,M: integer): a;

begin

  SetLength(Result,N);

  for var i:=0 to N-1 do

    SetLength(Result[i],M);

end;


procedure FillMatrByRead(matr: a);

begin

  for var i:=0 to matr.Length-1 do

  for var j:=0 to matr[0].Length-1 do

    readln(matr[i,j]); 

end;


procedure WriteMatrix(matr: a);

begin

  for var i := 0 to matr.Length-1 do

  begin

    for var j := 0 to matr[0].Length-1 do

      write(matr[i,j]:3);

    writeln;

  end;

end;


procedure MatrixZero(matr: a);

begin

  for var i := 0 to matr.Length-1 do

  begin

    for var j := 0 to matr[0].Length-1 do

      if (matr[i,j] = 0) then

      write('matr','[',i,',',j,']');

    writeln;

  end; 

end;


begin

readln(N,M);

matr:= CreateMatrix(N,M);

FillMatrByRead(matr);

WriteMatrix(matr);

MatrixZero(matr);
end.