Question

Под номером 2. Паскаль программа ​

Answer 1

Ответ:

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

b:array[1..12]of integer;

i,j,n:integer;

begin

n:=1;

writeln('Массив A ');  

for i:= 1 to 4 do

begin

for j:= 1 to 3 do

begin

a[i,j]:= random(10);

write(a[i,j]:2);

b[n]:=a[i,j];

n:=n+1

end;

writeln;

end;

writeln;

writeln('Массив B ');  

for i:= 1 to 12 do write (b[i]:2)

end.