Ответы
Ответ дал:
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.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад