Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
Student_1
0 / 0 / 0
Регистрация: 23.12.2009
Сообщений: 5
1

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

25.12.2010, 20:06. Просмотров 504. Ответов 2
Метки нет (Все метки)

Задана матрица А(10, 9). Вычислить и запомнить сумму и число положительных элементов каждого столбца матрицы. Результаты получить в виде двумерного массива. Диапазон [-20; 20].

У меня возникла сложность в последней части:
"Результаты получить в виде двумерного массива"

Кто подскажет, как это сделать. Вот набросок программы, то что уже написал:
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
45
uses
  CRT;
 
const
  n = 10;
  m = 9;
 
type
  mas = array [1..n, 1..m] of integer;
 
var
  a: mas;
  i, j: byte;
  sum, sum2: integer;
 
procedure summa(var b: mas; l: integer);
begin
  sum := 0;
  sum2 := 0;
  for i := 1 to n do
    for j := 1 to m do
    begin
      if b[i, j] > 0 then
      begin
        inc(sum2);
        sum := sum + b[i, j];
      end;
    end;
end;
 
begin
  ClrScr;
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(40)-20;
      write(a[i, j]:5);
    end;
    writeln;
  end;
 
  readkey
end.
Добавлено через 8 часов 39 минут
Забыл добавить :
Обработка массива должна быть реализована в подпрограмме
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2010, 20:06
Ответы с готовыми решениями:

сумма эл-тов диагонали матрицы
в заданном целочисленном массиве Аnn определить сумму элементов главной и побочной диагонали.

Наименьшая сумма строки в матрице А
Для получения результата составить функцию, исходными данными которой являются два массива...

Посчитать количество положительных чисел в матрице 10 на 10 в интервале [-19;30]
Посчитать количество положительных чисел в матрице 10 на 10 в интервале Сразу спасибо за решение

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

сумма положительных элементов массива.
в одномерном массиве,состоящем из n вещественных элементов,вычислить: 1)сумму положительных...

2
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
25.12.2010, 20:29 2
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
uses
  CRT;
 
const
  n = 4;
  m = 5;
 
type
  mas = array [1..n, 1..m] of integer;
 
var
 a: mas;
 c:array[1..2,1..m] of integer;
 i, j: byte;
 
procedure summa(var b: mas; k,l:integer);
Var
 sum,kol:integer;
begin
for j := 1 to k do
 begin
  kol:=0;
   for i := 1 to l do
    if b[i, j] > 0 then
     begin
      inc(kol);
      c[1,j]:=c[1,j]+b[i, j];
      c[2,j]:=kol;
     end;
 end;
end;
 
begin
ClrScr;
writeln('ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў: ');
randomize;
for i := 1 to n do
 begin
  for j := 1 to m do
   begin
    a[i, j] := random(40)-20;
    write(a[i, j]:5);
   end;
  writeln;
 end;
summa(a,m,n);
writeln;
writeln('ГЊГ*Г±Г±ГЁГў ñóììû ïîëîæèòåëüГ*ûõ ýëåìåГ*òîâ ГЇГ® ñòîëáöГ*Г¬ ГЁ ГЁГµ êîë-ГўГ®: ');
for i := 1 to 2 do
 begin
  for j := 1 to m do
   begin
    write(c[i, j]:5);
   end;
   if i=1 then
    writeln(' <= SUM ')
   else
    writeln(' <= Kol');
 end;
readkey
end.
немного измените только.
1
BotaniQ-Orig
1 / 1 / 1
Регистрация: 10.10.2010
Сообщений: 51
26.12.2010, 17:11 3
попробовал по примеру, но все равно не так( почему-то постоянно 0 2-е число, и суммы происходят в арифметической прогресии.
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
program Z9_2;
const n=3;m=2;
type
mass1=array[1..10,1..10] of integer;
var
x,f:mass1;
j,k,i,l:integer;
 procedure g(a:mass1; n,m:integer);
var
 s,s2:integer;
begin
s2:=0;
s:=0;
    for i:=1 to n do
     for k:=1 to m do
     begin
      s:=s+a[n,m];
      write(s:3);
      s2:=a[m,n]+a[m,n]+a[m,n];
      write(s2:3);
      end;
end;
 
begin
writeln('Введите массив 1');
   for i:=1 to m do
     for l:=1 to n do
     readln(x[i,l]);
 
writeln('Введите массив 2');
   for j:=1 to n do
     for k:=1 to m do
     readln(f[j,k]);
g(x,m,n);
g(f,n,m);
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2010, 17:11

Сумма положительных элементов матрицы
Вычислить и запомнить суммы положительных элементов каждой строки матрицы A(10,20),B(15,10).

Определить номер строки в матрице, сумма элементов которого максимальна
определить номер строки, сумма элементов которого максимальна

В матрице найти квадратную подматрицу, сумма элементов которой максимальна.
4.Дана матрица а(n,m). Найдите в ней квадратную под¬матрицу, сумма элементов которой максимальна....


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

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

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