Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Натали-Наталья
0 / 0 / 1
Регистрация: 11.05.2012
Сообщений: 8
#1

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

19.05.2012, 23:10. Просмотров 740. Ответов 2
Метки нет (Все метки)

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


Delphi
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
const n=-5;
   m=5;
 var massiv: array [1..5,1..5] of integer;
  i,j,sumpol,sumotr: integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
randomize;
for i:=1 to 5 do    ///  diapazon elementov
for j:=1 to 5 do
    massiv[i,j]:=random(m-n+1)+n;
   begin
 For i:=1 to 5 do
   begin
 For j:=1 to 5 do
  write (massiv[i,j]:3);
 writeln;
 end;
   end;
 
  begin
     sumpol:=0;     // сумма положит элементов массива
  for i:=1 to 5 do   begin
   for j:=1 to 5 do
    if massiv[i,j] > 0 then
      sumpol := sumpol + massiv[i,j];
   end;
 writeln('Sum + elementov:= ',sumpol);
     end;
    begin
     sumotr:=0;     // сумма отриц элементов массива
  for i:=1 to 5 do   begin
   for j:=1 to 5 do
    if massiv[i,j] < 0 then
      sumotr := sumotr + massiv[i,j];
   end;
 writeln('Sum - elementov:= ',sumotr);
     end;
     begin
       if massiv[i,j]>0 then
         massiv[i,j]:=sumpol;
 
      writeln;
     end;
   readln;
  
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.05.2012, 23:10
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Все положительные элементы двумерного массива замените суммой всех положительных элементов массива (Delphi):

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

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

Все положительные элементы массива С из 8 элементов заменить нулями
Все положительные элементы массива С из 8 элементов заменить нулями. Сделайте...

Записать положительные элементы массива X подряд в массив Y. Вычислить сумму элементов массива
Всем привет, меня данная проблема, у нс в колледже мягко говоря все...

Определить сумму и количество положительных элементов массива. Увеличить все отрицательные элементы на 10
Определить сумму и количество положительных элементов массива Xi, (i =...

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

2
antikiler_
1080 / 566 / 79
Регистрация: 07.04.2011
Сообщений: 971
Записей в блоге: 2
20.05.2012, 00:11 #2
begin' ов с end'ами ты поностовляла от души....
Delphi
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
uses
  SysUtils;
 
const
  n = -5;
  m = 5;
 
var
  massiv: array [1 .. m, 1 .. m] of integer;
  i, j, sumpol, sumotr: integer;
 
begin
  { TODO -oUser -cConsole Main : Insert code here }
  randomize;
  for i := 1 to m do
    /// diapazon elementov
    for j := 1 to m do
      massiv[i, j] := random(m - n + 1) + n;
 
  For i := 1 to m do
    begin
      For j := 1 to m do
        write(massiv[i, j]:3);
      writeln;
    end;
 
  sumpol := 0; // сумма положит элементов массива
  for i := 1 to m do
    for j := 1 to m do
      if massiv[i, j] > 0 then
        sumpol := sumpol + massiv[i, j];
 
  writeln('Sum + elementov:= ', sumpol);
 
  sumotr := 0; // сумма отриц элементов массива
  for i := 1 to m do
    for j := 1 to m do
      if massiv[i, j] < 0 then
        sumotr := sumotr + massiv[i, j];
 
  writeln('Sum - elementov:= ', sumotr);
 
  // замена
  for i := 1 to m do
    for j := 1 to m do
      if massiv[i, j] > 0 then
        massiv[i, j] := sumpol
      else if massiv[i, j] < 0 then
        massiv[i, j] := sumotr;
  writeln;
 
  // вывод
  For i := 1 to m do
    begin
      For j := 1 to m do
        write(massiv[i, j]:3);
      writeln;
    end;
 
  readln;
 
end.
1
Натали-Наталья
0 / 0 / 1
Регистрация: 11.05.2012
Сообщений: 8
26.05.2012, 21:22  [ТС] #3
)) спасибо )
очень помогли
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2012, 21:22
Привет! Вот еще темы с решениями:

Все элементы матрицы (StringGrid) с наибольшим значением заменить суммой положительных элементов
Задача: В целочисленной матрице размера 4х5 все элементы с наибольшим...

Все положительные элементы массива увеличить на 0.4, нулевые заменить на 0.5
Все положительные элементы массива A увеличить на 0.4, нулевые заменить на 0.5....

Заменить все положительные элементы массива на значение минимального
народ помогите, а то башка по ночам совсем не варит::sleep: Заменить все...

Записать сначала все отрицательные, потом положительные элементы массива
2) Дан массив чисел содержащий 20 элементов. Записать сначала все отрицательные...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru