Помогите пожалуйста решить задачи1.найти сумму частей двумерного массива у которых номер
Помогите пожалуйста решить задачки
1.найти сумму частей двумерного массива у которых номер строки не четный
2. Вывести на экран элементы двумерного массива у которых n столбца нечетный
1 ответ
Виктория Тахтаджян
//Задание 1
const
m = 5;
n = 7;
var
a: array[1..m, 1..n] of integer;
i, j, s: integer;
begin
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(21) - 10;
if (i mod 2) lt;gt; 0 then s := s + a[i, j];
write(a[i, j]:4);
end;
writeln;
end;
write('Сумма частей на нечетных строках = ', s);
end.
Тестовое решение:
-10 2 -1 -8 -9 -1 5
2 -10 2 4 8 -6 8
0 3 2 3 -8 -10 4
3 -3 -4 2 9 -8 3
9 -4 -1 3 7 3 -2
Сумма частей на нечетных строчках = -13
//Задание 2
const
m = 5;
n = 7;
var
a: array[1..m, 1..n] of integer;
i, j, s: integer;
begin
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(21) - 10;
if (i mod 2) lt;gt; 0 then s := s + a[i, j];
write(a[i, j]:4);
end;
writeln;
end;
writeln('Элементы на нечетных столбцах:');
for i := 1 to m do
begin
for j := 1 to n do
begin
if (j mod 2) lt;gt; 0 then write('a[', i, ',', j, '] = ', a[i, j], ' ');
end;
writeln;
end;
end.
Тестовое решение:
4 -10 -7 -4 -7 -5 -10
-1 3 6 -10 -2 -1 -5
2 8 -5 -1 -3 1 2
3 10 -5 6 -1 3 2
-8 3 4 5 -1 6 10
Элементы на нечетных столбцах:
a[1,1] = 4 a[1,3] = -7 a[1,5] = -7 a[1,7] = -10
a[2,1] = -1 a[2,3] = 6 a[2,5] = -2 a[2,7] = -5
a[3,1] = 2 a[3,3] = -5 a[3,5] = -3 a[3,7] = 2
a[4,1] = 3 a[4,3] = -5 a[4,5] = -1 a[4,7] = 2
a[5,1] = -8 a[5,3] = 4 a[5,5] = -1 a[5,7] = 10
const
m = 5;
n = 7;
var
a: array[1..m, 1..n] of integer;
i, j, s: integer;
begin
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(21) - 10;
if (i mod 2) lt;gt; 0 then s := s + a[i, j];
write(a[i, j]:4);
end;
writeln;
end;
write('Сумма частей на нечетных строках = ', s);
end.
Тестовое решение:
-10 2 -1 -8 -9 -1 5
2 -10 2 4 8 -6 8
0 3 2 3 -8 -10 4
3 -3 -4 2 9 -8 3
9 -4 -1 3 7 3 -2
Сумма частей на нечетных строчках = -13
//Задание 2
const
m = 5;
n = 7;
var
a: array[1..m, 1..n] of integer;
i, j, s: integer;
begin
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(21) - 10;
if (i mod 2) lt;gt; 0 then s := s + a[i, j];
write(a[i, j]:4);
end;
writeln;
end;
writeln('Элементы на нечетных столбцах:');
for i := 1 to m do
begin
for j := 1 to n do
begin
if (j mod 2) lt;gt; 0 then write('a[', i, ',', j, '] = ', a[i, j], ' ');
end;
writeln;
end;
end.
Тестовое решение:
4 -10 -7 -4 -7 -5 -10
-1 3 6 -10 -2 -1 -5
2 8 -5 -1 -3 1 2
3 10 -5 6 -1 3 2
-8 3 4 5 -1 6 10
Элементы на нечетных столбцах:
a[1,1] = 4 a[1,3] = -7 a[1,5] = -7 a[1,7] = -10
a[2,1] = -1 a[2,3] = 6 a[2,5] = -2 a[2,7] = -5
a[3,1] = 2 a[3,3] = -5 a[3,5] = -3 a[3,7] = 2
a[4,1] = 3 a[4,3] = -5 a[4,5] = -1 a[4,7] = 2
a[5,1] = -8 a[5,3] = 4 a[5,5] = -1 a[5,7] = 10
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов