Question

Решить массив в паскале,! дано: массивы а1(n1,m1),a2(n2,m2),a3(n3,m3). сформировать одномерные массивы в1,в2,в3,каждый из которых состоит из элементов,лежащих в интервале [1,3] массивов а1,а2,а3 соответственно. формирование одномерного массива,состоящего из элементов исходного массива, лежащих в интервале[1,3], осуществить в подпрограмме.

Answer 1

Type
    arr = array[,] of integer;
    arrB = array of integer;
var
    A1, A2, A3: arr;
    B1, B2, B3: arrB;
    n,m:integer;

procedure Zapoln(var A: arr;k:integer);
var  i, j, n, m: integer;
begin
writeln('Массив А',k);
n:= Length(A,0);
m:= Length(A,1);
for i := 0 to n-1 do
  begin
  for j := 0 to m-1 do
    begin
    A[i,j]:=random(10);
    write(A[i,j]:2)
    end;
  writeln
  end
end;

procedure FormB(a:arr;var b:arrB;n,m,r:integer);
var i,j,k:integer;
begin
writeln('Массив В',r);
for i:=0 to n-1 do
  for j:=0 to m-1 do
    if (1<=a[i,j]) and (a[i,j]<=3) then
      begin
      b[k]:=a[i,j];
      write(b[k]:3);
      k:=k+1
      end;
writeln
end;

function razm(a: arr;n,m:integer):integer;
var i,j:integer;
begin
for i:=0 to n-1 do
  for j:=0 to m-1 do
    if (1<=a[i,j]) and (a[i,j]<=3) then result:=result+1
end;

begin
write('Введите N1 и M1: ');
readln(n,m);
SetLength(A1, n, m);
Zapoln(A1,1);
SetLength(B1, Razm(A1,n,m));
formB(A1,B1,n,m,1);
write('Введите N2 и M2: ');
readln(n,m);
SetLength(A2, n, m);
Zapoln(A2,2);
SetLength(B2, Razm(A2,n,m));
formB(A2,B2,n,m,2);
write('Введите N3 и M3: ');
readln(n,m);
SetLength(A3, n, m);
Zapoln(A3,3);
SetLength(B3, Razm(A3,n,m));
formB(A3,B3,n,m,3);
end.