Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 01.04.2012
Сообщений: 3
1

Найти сумму элементов двумерного массива 3х3 по строкам и вывести ее в виде одномерного массива

01.04.2012, 10:02. Просмотров 1356. Ответов 1
Метки нет (Все метки)

вот такая проблема, не могу на последнем этапе загнать данные в одномерный массив, пожалуйста, помогите, заранее спасибо!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
type
matr= array[1..3,1..3] of integer;
sum= array[1..3] of integer;
var
b:sum;
a:matr;
i,j,s: integer;
  begin
  Writeln('Введите A(3,3):');
     for i:=1 to 3 do
        for j:=1 to 3 do
        begin
        Write ('A[',i,',',j,']=');   Read(A[i,j]);
        end;
     for i:=1 to 3 do
     begin
     s:=0;
     for j:=1 to 3 do
    s:=s+a[i,j];
         end;
                  write(b[i]);
     end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.04.2012, 10:02
Ответы с готовыми решениями:

Подсчитать сумму строк двумерного массива и вывести в виде одномерного массива
Подсчитать сумму строк двумерного массива и вывести в виде одномерного массива. Не пойму как...

Найти сумму каждого столбца двумерного массив, оформить в виде одномерного массива
найти сумму каждого столбца двумерного массива A(n,m).оформить в виде одномерного массива

Написать программу, которая вычисляет сумму элементов двумерного массива по строкам
Написать программу, которая вычисляет сумму элементов двумерного массива по строкам.

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

1
108 / 108 / 100
Регистрация: 04.03.2012
Сообщений: 146
01.04.2012, 10:19 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
type
matr= array[1..3,1..3] of integer;
sum= array[1..3] of integer;
var
b:sum;
a:matr;
i,j: integer;
begin
Writeln('Введите A(3,3):');
for i:=1 to 3 do begin
b[i]:=0;
for j:=1 to 3 do
begin
Write ('A[',i,',',j,']='); Read(A[i,j]);
b[i]:=b[i]+a[i,j];
end;
end;
for i:=1 to 3 do write(b[i]:4);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.04.2012, 10:19

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

Найти сумму элементов массива в заштрихованной области двумерного массива
Найти сумму элементов массива в заштрихованной области двумерного массива.

Вывести на экран первоначальные случайные значения элементов двумерного массива от -5 до 9 в виде матрицы 6х4
Составить программу, которая выводит на экран первоначальные случайные значения элементов...

Найти сумму элементов одномерного массива
Найти сумму элементов одномерного массива.сам код я сделал, мне нуэно добавить чтобы выводилась...

Найти сумму элементов одномерного массива
Найти сумму элементов одномерного массива


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

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

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