Помогите с программой на Паскале. Сложение двумерных массивов.Сложение частей первого с
Помогите с программкой на Паскале. Сложение двумерных массивов.
Сложение частей первого с элементами второго. При этом в первом массиве порядок элементов обычный, а во втором - задом наперед.
Версия паскаля не имеет значения) я пользуюсь "АВС" и Турбо-паскалем
1 ответ
Эльвира
PascalABC.Net
const
m=8;
n=11;
var
a,b,c:array[1..m,1..n] of integer;
i,j:integer;
begin
Randomize;
Writeln('Исходный массив A');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=Random(51)-25;
Write(a[i,j]:4)
end;
Writeln
end;
Writeln('Начальный массив B');
for i:=1 to m do
begin
for j:=1 to n do
begin
b[i,j]:=Random(41)-20;
Write(b[i,j]:4)
end;
Writeln
end;
Writeln('Результирующий массив С');
for i:=1 to m do
begin
for j:=1 to n do
begin
c[i,j]:=a[i,j]+b[m-i+1,n-j+1];
Write(c[i,j]:4)
end;
Writeln
end
end.
Тестовое решение:
Начальный массив A
-23 -14 -9 0 -13 -13 14 18 9 16 15
-3 21 -4 24 -23 -9 19 9 -16 -14 23
17 -25 -19 -25 8 -7 10 -23 -6 -23 -20
-20 -3 9 12 6 -17 3 -24 5 -25 -11
18 -21 -4 -20 -22 19 5 -15 -23 14 -2
-20 -5 -10 -7 -14 4 -4 -18 7 -3 13
-8 15 24 -10 -10 11 11 -20 -18 6 23
2 -17 -23 5 2 -11 17 -3 -16 25 -8
Начальный массив B
6 -6 -10 -3 -10 18 19 4 -3 -5 14
-17 10 5 -15 11 2 16 0 18 5 14
-14 15 -14 -7 6 -18 -15 -7 -13 -10 11
-20 -14 5 -19 16 -1 11 -15 2 -13 3
8 -18 -8 19 -4 1 -9 2 7 -18 9
12 -12 -4 -9 17 -8 17 -1 -16 -13 4
-7 10 -1 0 9 7 -3 9 12 -18 6
3 -14 -17 -19 8 6 5 -18 6 3 8
Результирующий массив С
-15 -11 -3 -18 -8 -7 22 -1 -8 2 18
3 3 8 33 -26 -2 28 9 -17 -4 16
21 -38 -35 -26 25 -15 27 -32 -10 -35 -8
-11 -21 16 14 -3 -16 -1 -5 -3 -43 -3
21 -34 -2 -35 -11 18 21 -34 -18 0 -22
-9 -15 -23 -14 -29 -14 2 -25 -7 12 -1
6 20 42 -10 6 13 22 -35 -13 16 6
16 -22 -26 9 21 7 7 -6 -26 19 -2
const
m=8;
n=11;
var
a,b,c:array[1..m,1..n] of integer;
i,j:integer;
begin
Randomize;
Writeln('Исходный массив A');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=Random(51)-25;
Write(a[i,j]:4)
end;
Writeln
end;
Writeln('Начальный массив B');
for i:=1 to m do
begin
for j:=1 to n do
begin
b[i,j]:=Random(41)-20;
Write(b[i,j]:4)
end;
Writeln
end;
Writeln('Результирующий массив С');
for i:=1 to m do
begin
for j:=1 to n do
begin
c[i,j]:=a[i,j]+b[m-i+1,n-j+1];
Write(c[i,j]:4)
end;
Writeln
end
end.
Тестовое решение:
Начальный массив A
-23 -14 -9 0 -13 -13 14 18 9 16 15
-3 21 -4 24 -23 -9 19 9 -16 -14 23
17 -25 -19 -25 8 -7 10 -23 -6 -23 -20
-20 -3 9 12 6 -17 3 -24 5 -25 -11
18 -21 -4 -20 -22 19 5 -15 -23 14 -2
-20 -5 -10 -7 -14 4 -4 -18 7 -3 13
-8 15 24 -10 -10 11 11 -20 -18 6 23
2 -17 -23 5 2 -11 17 -3 -16 25 -8
Начальный массив B
6 -6 -10 -3 -10 18 19 4 -3 -5 14
-17 10 5 -15 11 2 16 0 18 5 14
-14 15 -14 -7 6 -18 -15 -7 -13 -10 11
-20 -14 5 -19 16 -1 11 -15 2 -13 3
8 -18 -8 19 -4 1 -9 2 7 -18 9
12 -12 -4 -9 17 -8 17 -1 -16 -13 4
-7 10 -1 0 9 7 -3 9 12 -18 6
3 -14 -17 -19 8 6 5 -18 6 3 8
Результирующий массив С
-15 -11 -3 -18 -8 -7 22 -1 -8 2 18
3 3 8 33 -26 -2 28 9 -17 -4 16
21 -38 -35 -26 25 -15 27 -32 -10 -35 -8
-11 -21 16 14 -3 -16 -1 -5 -3 -43 -3
21 -34 -2 -35 -11 18 21 -34 -18 0 -22
-9 -15 -23 -14 -29 -14 2 -25 -7 12 -1
6 20 42 -10 6 13 22 -35 -13 16 6
16 -22 -26 9 21 7 7 -6 -26 19 -2
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Облако тегов