Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 07.12.2010
Сообщений: 10
1

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

07.12.2010, 17:25. Просмотров 2005. Ответов 1
Метки нет (Все метки)

Матрица A[N,M] (М кратно 4) разделена по вертикали на две поло¬вины. Определить сумму элементов каждого столбца левой половины и сумму элементов каждого четного столбца правой половины матрицы А.

Помогите пожалуйста никак не могу понять как столбец матрицы разделить пополам
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2010, 17:25
Ответы с готовыми решениями:

Массив: Определить суммы элементов каждого столбца левой половины и каждого четного столбца правой половины матрицы A
Матрица A (M кратно 4) разделена по вертикали на две половины. Определить сумму элементов каждого...

Определить сумму элементов каждого столбца левой половины и сумму элементов каждого четного столбца правой половины матрицы A
Матрица A (M кратно 4) разделена по вертикали на две половины. Определить сумму элементов каждого...

Определить сумму элементов каждого столбца левой половины матрицы
Вот задача: Матрица A (М кратно 4) разделена по вертикали на две половины. Определить сумму...

Найти сумму положительных элементов каждого четного столбца и произведение отрицательных элементов каждого нечетного столбца
Дана матрица А(5,6). Найти сумму положительных элементов каждого четного столбца и произведение...

1
trainspotting
1084 / 484 / 384
Регистрация: 11.11.2010
Сообщений: 773
07.12.2010, 18:40 2
Лучший ответ Сообщение было отмечено Kimiguro как решение

Решение

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
const
    n=5;
    m=8;
var
    mas:array[1..n,1..m] of integer;
    sum:integer;
    i,j:word;
begin
    Randomize;
    writeln('Исходная матрица');
    for i:=1 to n do
        for j:=1 to m do
            begin
                mas[i,j]:=random(50)+1;
                write(mas[i,j]:3);
                if j=m then writeln;
            end;
    writeln('Суммы столбцов левой половины');
    for j:=1 to m div 2 do
        begin
            sum:=0;
            for i:=1 to n do
                    sum:=sum+mas[i,j];
            writeln('Сумма ',j,' столбца= ',sum);
        end;
    writeln('Суммы четных столбцов правой половины');
    for j:=m div 2+1 to m do
        begin
            if j mod 2 = 0 then
            begin
                sum:=0;
                for i:=1 to n do
                        sum:=sum+mas[i,j];
                writeln('Сумма ',j,' столбца= ',sum);
            end;
        end;
    readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2010, 18:40

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

В двухмерном массиве 3 × 6 для каждого четного столбца определить сумму элементов
не получается составить программку

Определить сумму элементов каждого столбца матрицы
Помогите, пожалуйста, с решением данной задачи Взять матрицу M x N. Определить сумму элементов...

Определить сумму элементов каждого столбца матрицы
Ввести двумерный массив M x N. Определить сумму элементов каждого столбца :(

Определить сумму элементов каждого столбца матрицы
Дана матрица A(QxP) масс Q вагонов (Q=6); P-составов (P=4) 1) Ввести матрицу в диалоговом режиме...

Определить сумму элементов каждого столбца матрицы
Данная матрица целых чисел размером 3x4. Определите сумму каждого столбца этой матрицы. Результат...

Определить сумму элементов каждого столбца матрицы
Дана матрица А(Q*P),Q=6,P=4. 1)ввести матрицу в диалоговом режиме по строкам 2)вывести матрицу на...


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

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

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