0 / 0 / 0
Регистрация: 09.02.2023
Сообщений: 8
1

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

01.04.2023, 11:14. Показов 555. Ответов 2

Author24 — интернет-сервис помощи студентам
Есть готовый код с таким заданием - Найти сумму положительных элементов и произведение отрицательных
элементов одномерного массива, состоящего из 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.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.04.2023, 11:14
Ответы с готовыми решениями:

Найти сумму положительных и произведение отрицательных элементов массива
Помогите пожалуйста решить задачки на массив в паскале : 1-В массиве A(N) содержатся положительные...

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

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

Найти произведение количества отрицательных элементов и количество положительных элементов массива
Прошу помощи. Задание: Задан одномерный, целочисленный массив A(n), (n&lt;=40).Найти произведение...

2
1077 / 488 / 316
Регистрация: 05.04.2013
Сообщений: 2,141
04.04.2023, 21:23 2
Лучший ответ Сообщение было отмечено flam1ngo289 как решение

Решение

Цитата Сообщение от 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
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);
1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7785 / 4611 / 2827
Регистрация: 22.11.2013
Сообщений: 13,106
Записей в блоге: 1
08.04.2023, 10:05 3
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;
0
08.04.2023, 10:05
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.04.2023, 10:05
Помогаю со студенческими работами здесь

В каждой строке двумерного массива подсчитать сумму положительных и отрицательных элементов
добрый день, помогите закончить программу, голову сломал, не пойму как сделать... В каждой строке...

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

Найти сумму положительных элементов и количество отрицательных элементов двумерного массива вещественного типа
Помогите, пожалуйста, сделать вот ету задачу в Free Pascal: создайте программу &quot;Подсчет&quot; в которой...

Найти сумму положительных и произведение отрицательных элементов массива
Сгенерировать массив от 1 до n , где n даётся на ввод от -6 до +6. А также найти сумму...

Найти сумму положительных элементов и произведение отрицательных массива
Задан одномерный массив А(N) (N&lt;=60). Найти сумму положительных элементов и произведение...

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru