Найти сумму положительных элементов и произведение отрицательных элементов двумерного массива

@flam1ngo289 · Регистрация: 09.02.2023

Студворк — интернет-сервис помощи студентам

Есть готовый код с таким заданием - Найти сумму положительных элементов и произведение отрицательных
элементов одномерного массива, состоящего из 100 элементов целого типа
в диапазоне (-100..100), порядковый номер которых кратен трём. Для ввода
элементов массива использовать генератор случайных чисел.

Нужно сделать это задание для двумерного массива! Число элементов
ограничьте до 10, для выполнения тестирования кода.
Спасибо

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
program Pr;
{$APPTYPE CONSOLE}
uses SysUtils;
const NN = 100;
type TMassiv = array [1..NN] of Integer;
var
A: TMassiv;
Sum, Prod, i, n: Integer;
Begin
write('Введите количество элементов массива(1-100): '); readln(n);
Randomize;
for I := 1 to n do
begin
A[I]:=Random(100) - Random(100);
Write(A[I], ' ');
end;
Writeln;
Sum := 0;
Writeln( 'Подходящие числа: ');
for I := 1 to n do
begin
if( I mod 3 = 0 ) and ( A[I] > 0 ) then
Begin
Sum := Sum + A[I];
Write(A[I]:3);
end;
end;
Writeln;
 
Writeln( 'Сумма положительных чисел с индексом кратным 3: ', Sum );
Prod := 1;
Writeln( 'Подходящие числа: ');
for I := 1 to n do
begin
if( I mod 3 = 0 ) and ( A[I] < 0 ) then
Begin
Prod := Prod * A[I];
Write( A[I],' ');
end;
end;
Writeln;
Writeln( 'Произведение отрицательных чисел с индексом кратным 3: = ', Prod );
Readln;
end.

@AHBAR · 04.04.2023, 21:23

Сообщение от flam1ngo289

Нужно сделать это задание для двумерного массива!

Тут выходит некоторые накладки, а именно:

Накладка №1:

Сообщение от flam1ngo289

порядковый номер которых кратен трём

В одномерном массиве порядковым номером элемента можно считать его индекс, при условии, что массив первый элемент массива имеет индекс = 1.
Но в двумерном массиве элементы имеют два индекса, тут уже не сопоставишь "порядковый номер элемента" с этими индексами так же просто как в случае с одномерным массивом. Но поскольку никто не будет читать этот диплом, то разумнее изготовить сердечник трансформатора из древесины, поменять полярность проводов, чтобы трамваи поехали в обратную сторону, в результате чего мы условно примем такой порядок нумерации элементов массива:
Элементы массива будут нумероваться слева-направо, сверху вниз и выглядеть это будет как-то так, но никак иначе:

Code
1
2
3
4
5
6
7
8
9
10
   1   2   3   4   5   6   7   8   9  10
  11  12  13  14  15  16  17  18  19  20
  21  22  23  24  25  26  27  28  29  30
  31  32  33  34  35  36  37  38  39  40
  41  42  43  44  45  46  47  48  49  50
  51  52  53  54  55  56  57  58  59  60
  61  62  63  64  65  66  67  68  69  70
  71  72  73  74  75  76  77  78  79  80
  81  82  83  84  85  86  87  88  89  90
  91  92  93  94  95  96  97  98  99 100

Сам порядковый номер можно посчитать по такой формуле:

Pascal
1
2
3
4
5
6
   for i := 1 to Rows do begin
       for j := 1 to Cols do begin
           write(((i-1)*Cols + j):4); {порядковый номер эл-та мас.}
       end;
       writeln;
   end;

Ну или можно ввести еще одну переменную и инкрементировать ее в цикле

Pascal
1
2
3
4
5
6
7
8
   index := 0;{var index : integer;}
   for i := 1 to Rows do begin
       for j := 1 to Cols do begin
           inc(index);
           write(index:4); {порядковый номер эл-та мас.}
       end;
       writeln;
   end;

Накладка №2:

Сообщение от flam1ngo289

Число элементов ограничьте до 10

Чтобы в двумерном массиве было 10 элементов, это у нас получится 2 столбца и 5 строк или 2 строки и 5 столбов, больше никак.
В том коде, который сейчас я напишу, число столбов и строк будет равно 10 (итого 10х10=100 элементов).
При необходимости подкорректируйте константы на те, которые вам нужно.

Pascal
1
2
Const
   Rows = 10; Cols = 10;

Если строго переписывать ваш код для одномерного массива с именно таким алгоритмом, то это будет выглядеть так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Const
   Rows = 10; Cols = 10;
var
   a: array[1..Rows,1..Cols] of integer;
   i,j,s,p,index : integer;
begin
 
   Randomize;
   for i := 1 to Rows do begin
       for j := 1 to Cols do begin
           a[i,j] := -100 + Random(201);
           write(a[i,j]:5);
       end;
       writeln;
   end;
 
   S := 0;
   writeln('Положительные элементы, порядковый номер которых кратен 3:');
   for i := 1 to Rows do begin
       for j := 1 to Cols do begin
           if ( (((i-1) * Cols + j) mod 3 = 0) and (a[i,j] > 0) ) then begin
                s := s + a[i,j];
                write(a[i,j],'(',(i-1) * Cols + j,'-й) ');
           end;
       end;
   end;
   writeln;
   writeln('Сумма = ', s);
 
   P := 1;
   writeln('Отрицательные элементы, порядковый номер которых кратен 3:');
   for i := 1 to Rows do begin
       for j := 1 to Cols do begin
           if ( (((i-1) * Cols + j) mod 3 = 0) and (a[i,j] < 0) ) then begin
                p := p * a[i,j];
                write(a[i,j],'(',(i-1) * Cols + j,'-й) ');
           end;
       end;
   end;
   writeln;
   writeln('Произведение = ', p);
   readln;
end.

Но код в принципе можно написать в один цикл:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
   a: array[1..Rows,1..Cols] of integer;
   i,j,s,p,index : integer;
begin
   Randomize;
   S := 0;
   P := 1;
   for i := 1 to Rows do begin
       for j := 1 to Cols do begin
           a[i,j] := -100 + Random(201);
           write(a[i,j]:5);
           {Если порядковый номер массива кратен трём и при этом он:}
           if ((i-1) * Cols + j) mod 3 = 0 then
              {1) отрицательный,     то считаем произведение}
              if a[i,j] < 0 then p := p * a[i,j] else
                 {2) положительный,     то считаем сумму}
                 if a[i,j] > 0 then s := s + a[i,j];
       end;
       writeln;
   end;
   writeln('Сумма = ', s);
   writeln('Произведение = ', p);

Более того, можно сократить немного, если не совсем строго придержаться условия

Сообщение от flam1ngo289

Сумму положительных элементов

Элемент массива может быть равен нулю, а ноль - это ни положительное, ни отрицательное. Но в принципе если ноль прибавлять к сумме положительных элементов, то ничего лишнего не прибавиться.
А значит можно сократить 1 штуку if ... then ...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
   a: array[1..Rows,1..Cols] of integer;
   i,j,s,p,index : integer;
begin
   Randomize;
   S := 0;
   P := 1;
   for i := 1 to Rows do begin
       for j := 1 to Cols do begin
           a[i,j] := -100 + Random(201);
           write(a[i,j]:5);
           {Если порядковый номер массива кратен трём и при этом он:}
           if ((i-1) * Cols + j) mod 3 = 0 then
              {1) отрицательный,     то считаем произведение}
              if a[i,j] < 0 then p := p * a[i,j] else
                 {2) положительный,     то считаем сумму}
                                       s := s + a[i,j];
       end;
       writeln;
   end;
   writeln('Сумма = ', s);
   writeln('Произведение = ', p);

Еще в приведенных примерах кода есть лишние операторские скобки begin ... end
Но я их специально не стал сокращать, потому что мне так удобнее читать код

Добавлено через 3 минуты

Сообщение от AHBAR

Но код в принципе можно написать в один цикл:

на самом деле там 2 цикла, но вы поняли

Добавлено через 3 минуты
Еще вывод на экран суммы и произведения можно сделать более "красиво":

Pascal
1
2
3
4
if s = 0  then writeln('В массиве нет положительных элементов, порядковый номер которых кратен 3')
else writeln('Сумма = ', s);
if p = 1  then writeln('В массиве нет отрицательных элементов, порядковый номер которых кратен 3')
else writeln('Произведение = ', p);

@bormant · 08.04.2023, 10:05

AHBAR,
... а если вспомнить кое-что про синтаксис Паскаля, то в исходном алгоритме вообще менять ничего не надо

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const Rows=5; Cols=5;
type
  TVector = array [0..Rows*Cols-1] of Integer;
  TMatrix = array [0..Rows-1, 0..Cols-1] of Integer;
 
procedure DoItForVector(const v: TVector);
begin
  {...}
end;
 
procedure DoItForMatrix(const a: TMatrix);
const v: TVector absolute a;
begin
  DoItForVector(v);
end;

Добавлено через 26 минут
Еще момент: зачем проверять индекс на кратность 3, вместо получения нужных индексов непосредственно?
Для вектора (база 0):

Pascal
1
2
3
4
for i:=0 to n div 3-1 do begin
  t:=v[i*3];
  if t<0 then p:=p*t else s:=s+t;
end;

Для матрицы (база 0):

Pascal
1
2
3
4
for i:=0 to Rows*Cols div 3-1 do begin
  t:=a[i*3 div Cols, i*3 mod Cols];
  if t<0 then p:=p*t else s:=s+t;
end;

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Найти сумму положительных элементов и произведение отрицательных элементов двумерного массива

Решение