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

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

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

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

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

Pascal

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.
Но в двумерном массиве элементы имеют два индекса, тут уже не сопоставишь "порядковый номер элемента" с этими индексами так же просто как в случае с одномерным массивом. Но поскольку никто не будет читать этот диплом, то разумнее изготовить сердечник трансформатора из древесины, поменять полярность проводов, чтобы трамваи поехали в обратную сторону, в результате чего мы условно примем такой порядок нумерации элементов массива:
Элементы массива будут нумероваться слева-направо, сверху вниз и выглядеть это будет как-то так, но никак иначе:

Код

   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

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

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

Pascal

   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

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

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

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

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

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

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

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;

Опции темы

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

Решение