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

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.

Заполнение случайными числами: const n = 20; var     a: array[1..n] of real;     i: integer;     r: real; begin randomize; r: =0; for i: = 1 to n do       begin       a[i]: =random*(2*n+1)-n;       r: =r-a[i];       write(a[i]: 0: 1,' ')       end; writeln; writeln('r = ',r); end. ввод с клавиатуры: const     n = 20; var     a: array[1..n] of real;     i: integer;     r: real; begin r: =0; for i: = 1 to n do       begin       read(a[i]);       r: =r-a[i];       end; writeln('r = ',r); end.

Заполнение с клавиатуры: var     a: array[1..10000] of integer;     i,n: integer;     s: real; begin write('n = '); readln(n); write('введите a1..a',n,': '); s: =0; for i: = 1 to n do       begin       read(a[i]);       if (a[i] mod 4 = 0) then s: =s+a[i];       end; writeln('s = ',s); end. заполнение случайными числами: var     a: array[1..10000] of integer;     i,n: integer;     s: real; begin randomize; write('n = '); readln(n); write('a1..a',n,': '); s: =0; for i: = 1 to n do       begin       a[i]: =random(2*n+1)-n;       write(a[i],' ');       if (a[i] mod 4 = 0) then s: =s+a[i];       end; writeln; writeln('s = ',s); end.