Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.62/21: Рейтинг темы: голосов - 21, средняя оценка - 4.62
4 / 4 / 0
Регистрация: 10.05.2012
Сообщений: 87
1

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

27.05.2012, 21:33. Показов 4143. Ответов 4
Метки нет (Все метки)

Ввести двумерный массив, найти сумму элементов каждого столбца.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.05.2012, 21:33
Ответы с готовыми решениями:

Двумерный массив. Найти произведение всех элементов каждого столбца массива
Дан двухмерный массив размером M x N. Найти произведение всех элементов каждого столбца массива. Из...

Ввести двумерный массив [n,m] Найдите сумму всех элементов
Ввести двумерный массив, состоящую из элементов. Найдите сумму всех элементов.

Дан двумерный массив MAS. Ввести A (номер строки) и B (номер столбца) Определить сумму всех ближайших соседних элементов для MAS[A,B]
Дан двумерный массив MAS. Ввести A (номер строки) и B (номер столбца) Определить сумму всех...

Дан двумерный массив. Определить:сумму квадратов элементов с-го столбца массива
2)Дан двумерный массив.Определить:сумму квадратов элементов с-го столбца массива. Помогите...

__________________
4
Нет ТЗ - давай досвидания
745 / 376 / 64
Регистрация: 01.12.2011
Сообщений: 2,250
27.05.2012, 21:52 2
Цитата Сообщение от Makelroy Посмотреть сообщение
каждого столбца
Каждого не равно всех. Дак нужно сделать чтобы выводилась сумма каждого столбца или всего массива?
0
20 / 20 / 15
Регистрация: 31.03.2012
Сообщений: 28
27.05.2012, 21:54 3
Задание 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program m1;
const e=10;
var m: array [1..e,1..e] of integer;
    a,b,k: integer;
begin
for a := 1 to e do begin
for b := 1 to e do begin
m[a,b] := Random(99)+1;
if m[a,b]>9 then write(m[a,b],' ') else write(m[a,b],'  ');
end;
writeln();
end;
writeln();
 
for a := 1 to e do begin
for b := 1 to e do k:=k+m[b,a];
write(k,' ');
end;
writeln();
end.
0
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,021
Записей в блоге: 1
27.05.2012, 21:57 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Var A:array[1..100,1..100] of integer;
    i,j,n,m,s:integer;
Begin
    Randomize;
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во столбцов: ');readln(m);
    For i:=1 to n do 
     Begin
      For j:=1 to m do
       Begin
        A[i,j]:=Random(30)-15;
        write(A[i,j]:4);
       End;
      writeln;
     End;
    For j:=1 to m do 
     Begin
      s:=0;
      For i:=1 to n do 
        s:=s+A[i,j];
      writeln('Сумма элементов ',j,'-го столбца=',s);
     End;
 End.
0
Нет ТЗ - давай досвидания
745 / 376 / 64
Регистрация: 01.12.2011
Сообщений: 2,250
27.05.2012, 21:58 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
  n=3;
var
  a:array[1..n,1..n] of integer;
  i,j,sum:integer;
begin
  sum:=0;
  randomize;
  for i:=1 to n do
    for j:=1 to n do
      begin
        a[j,i]:=-10+random(40);
        sum:=sum+a[j,i];
        if j=n then
          begin
            writeln('Summa ',i,'-ogo stolbca = ',sum);
            sum:=0;
          end;
      end;
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.05.2012, 21:58

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Заполнить двумерный массив с помощью random и найти сумму квадратиков (каждого)
например(нолики-пустое): 33456350000000 23456770000000 56892460000000 45678240000000...

Ввести двумерный массив [n,k] Найти количество положительных и отрицательных элементов
Ввести двумерный массив, состоящий из элементов. Найти количество положительных и отрицательных...

Дан двумерный массив размерностью 5*5. Вычислить сумму элементов, номер столбца которых нечетный.
Дан двумерный массив размерностью 5*5. Вычислить сумму элементов, номер столбца которых нечетный.


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

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

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