Если количество четных элементов массива А(n,m) больше количества нечетных, то уменьшить
Если количество четных частей массива А(n,m) больше количества нечетных, то уменьшить все положительные элементы в два раза, в неприятном случае отыскать сумму отрицательных частей каждого столбца
Задать свой вопрос1 ответ
Люлява
Катюша
Const
nn = 20;
mm = 20;
var
a: array[1..nn, 1..mm] of integer;
i, j, m, n, n1,n2,sj: integer;
begin
Формирование массива и вывод его частей.
Попутный подсчет количества четных и нечетных частей
n1:=0; n2:=0;
Write('Введите через пробел число строк и столбцов массива: ');
Readln(n, m);
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4);
if (a[i,j] mod 2=0) then n2:=n2+1 else n1:=n1+1
end;
Writeln
end;
Сопоставление и ветвление
if n2gt;n1 then
Уменьшить вдвое все положительные элементы
begin
Writeln('Результирующий массив');
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j]gt;0 then a[i,j]:=a[i,j] div 2;
Write(a[i,j]:4)
end;
Writeln
end
end
else
begin
Отыскать суммы отрицательных частей каждого столбца
Writeln('Суммы отрицательных частей по столбцам');
for j:=1 to m do
begin
sj:=0;
for i:=1 to n do
if a[i,j]lt;0 then sj:=sj+a[i,j];
Write(sj,' ')
end
end
end.
Тестовое решение:
Введите через пробел число строк и столбцов массива: 8 5
Начальный массив
13 -23 25 2 -36
-19 47 -7 -24 -34
-21 12 -29 46 -46
18 -3 12 -26 -8
-36 -39 -27 -48 -44
-25 -4 -23 -11 -15
49 24 -5 28 32
-37 -32 -34 39 45
Суммы отрицательных элементов по столбцам
-138 -101 -125 -109 -183
nn = 20;
mm = 20;
var
a: array[1..nn, 1..mm] of integer;
i, j, m, n, n1,n2,sj: integer;
begin
Формирование массива и вывод его частей.
Попутный подсчет количества четных и нечетных частей
n1:=0; n2:=0;
Write('Введите через пробел число строк и столбцов массива: ');
Readln(n, m);
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4);
if (a[i,j] mod 2=0) then n2:=n2+1 else n1:=n1+1
end;
Writeln
end;
Сопоставление и ветвление
if n2gt;n1 then
Уменьшить вдвое все положительные элементы
begin
Writeln('Результирующий массив');
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j]gt;0 then a[i,j]:=a[i,j] div 2;
Write(a[i,j]:4)
end;
Writeln
end
end
else
begin
Отыскать суммы отрицательных частей каждого столбца
Writeln('Суммы отрицательных частей по столбцам');
for j:=1 to m do
begin
sj:=0;
for i:=1 to n do
if a[i,j]lt;0 then sj:=sj+a[i,j];
Write(sj,' ')
end
end
end.
Тестовое решение:
Введите через пробел число строк и столбцов массива: 8 5
Начальный массив
13 -23 25 2 -36
-19 47 -7 -24 -34
-21 12 -29 46 -46
18 -3 12 -26 -8
-36 -39 -27 -48 -44
-25 -4 -23 -11 -15
49 24 -5 28 32
-37 -32 -34 39 45
Суммы отрицательных элементов по столбцам
-138 -101 -125 -109 -183
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов