в двумерном массиве нечетные элементы прирастить на 10,а другие уменьшить на
В двумерном массиве нечетные элементы прирастить на 10,а другие уменьшить на 10(паскаль)
Задать свой вопрос2 ответа
Людмила Ротман
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программка не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(5); Writeln(5*a.ColCount*'-');
a:=a.ConvertAll(x-gt;x.IsOdd?x+10:x-10);
a.Println(5)
end.
Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 10
*** Начальный массив [5,10] ***
66 -57 -2 69 45 -44 35 -96 -48 87
20 -32 -14 -41 -78 2 95 5 61 99
13 -7 86 58 -57 3 -58 14 -48 16
85 42 -57 90 -88 56 53 92 14 -97
84 87 93 93 -29 -32 24 42 89 -62
--------------------------------------------------
56 -47 -12 79 55 -54 45 -106 -58 97
10 -42 -24 -31 -88 -8 105 15 71 109
23 3 76 48 -47 13 -68 4 -58 6
95 32 -47 80 -98 46 63 82 4 -87
74 97 103 103 -19 -42 14 32 99 -72
// Внимание! Если программка не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(5); Writeln(5*a.ColCount*'-');
a:=a.ConvertAll(x-gt;x.IsOdd?x+10:x-10);
a.Println(5)
end.
Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 10
*** Начальный массив [5,10] ***
66 -57 -2 69 45 -44 35 -96 -48 87
20 -32 -14 -41 -78 2 95 5 61 99
13 -7 86 58 -57 3 -58 14 -48 16
85 42 -57 90 -88 56 53 92 14 -97
84 87 93 93 -29 -32 24 42 89 -62
--------------------------------------------------
56 -47 -12 79 55 -54 45 -106 -58 97
10 -42 -24 -31 -88 -8 105 15 71 109
23 3 76 48 -47 13 -68 4 -58 6
95 32 -47 80 -98 46 63 82 4 -87
74 97 103 103 -19 -42 14 32 99 -72
Veronika Safonteva
Var n,m,i,j:integer; a:array[1..100,1..100] of integer;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do
readln(a[I][j]);
for i:=1 to n do
for j:=1 to m do
if a[I][j] mod 2 = 0 then a[i][j]:=a[i][j]-10
else a[i][j]:=a[i][j]+10;
for i:=1 to n do begin
for j:=1 to m do
write(a[i][j],' ');
writeln;
end;
end.
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do
readln(a[I][j]);
for i:=1 to n do
for j:=1 to m do
if a[I][j] mod 2 = 0 then a[i][j]:=a[i][j]-10
else a[i][j]:=a[i][j]+10;
for i:=1 to n do begin
for j:=1 to m do
write(a[i][j],' ');
writeln;
end;
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов