0 / 0 / 0
Регистрация: 01.10.2013
Сообщений: 10
1

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

23.10.2013, 19:34. Показов 553. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
помогите с ошибками, пожалуйста.

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
program pr7;
const n = 3;
      m = 3;
var MAS:array[1..n, 1..m] of integer;
  i, j, a, b, min, S:integer;
begin
  min := MAS[1, 1];
  for i := 1 to n do
    for j := 1 to m do
    begin
      writeln('Введите элементы массива: ');
      read( MAS[i,j] );
        if (MAS[i,j] = 0) then 
          writeln('Недопустимое число.');
        if (MAS[i,j] <= min) then
        begin
          min := MAS[i, j];
        end;
    end;
    S := 0;
    for i := 1 to n do
      for j := 1 to n do
        if (i = j) then
          S := S + MAS[i, 0];
      writeln;
      writeln('Наименьшее значение массива: ', min);
      writeln;
      writeln('Сумма элементов массива гл. диагонали: ', S);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.10.2013, 19:34
Ответы с готовыми решениями:

Найти общую сумму элементов тех столбцов матрицы, сумма элементов в каждом из которых положительна и сумму элеметов главной диагонали
Понадобилось написать программку на паскале, но совершенно забыл как это делать на нём :)

Найти сумму элементов главной диагонали матрицы
дана квадратная матрица А порядка М. найти сумму элементов её главной диагонали, то есть диагонали,...

Найти сумму элементов главной диагонали матрицы
В матрице состоящей из целочисленных элементов, найти сумму элементов главной диагонали

Найти сумму элементов главной диагонали матрицы
Дано довимирний массив 3x3. Найти сумму элементов главной диагонали. Составить блок-схему

1
100 / 100 / 86
Регистрация: 20.10.2013
Сообщений: 186
23.10.2013, 21:00 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
program pr7;
const n = 3;
      m = 3;
var MAS:array[1..n, 1..m] of integer;
  i, j, a, b, min, S:integer;
begin
 
writeln('Введите элементы массива: ');
  for i := 1 to n do
    for j := 1 to m do
    begin
      read(MAS[i,j]);
        if (MAS[i,j] = 0) then
           begin
          writeln('Недопустимое число');
          read(MAS[i,j]);
           end;
  for i:= 1 to n do
  begin
    writeln;
    for j:= 1 to m do
      write(MAS[i,j],' ');
  end;
           
    end;
min := MAS[1, 1];
  for i := 1 to n do
    for j := 1 to m do
     if min>MAS[i,j] then min:=MAS[i,j];
 
    S := 0;
    for i := 1 to n do
      for j := 1 to m do
        if (i = j) then
          S:=S+MAS[i,j];
      writeln;
      writeln('Наименьшее значение массива: ', min);
      writeln;
      writeln('Сумма элементов главной диагонали: ', S);
end.
Добавлено через 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
24
25
26
27
28
program pr7;
const n = 3;
        m = 3;
var i, j, a, b, min, S:integer;
     MAS:array[1..n, 1..m] of integer;
begin
  for i:= 1 to n do
  begin
   writeln;
    for j:= 1 to m do
      begin
       MAS[i,j]:=random(100)+1;
        write(MAS[i,j],' ');
      end;
  end;
    
min := MAS[1, 1];
  for i := 1 to n do
    for j := 1 to m do
      if min>MAS[i,j] then min:=MAS[i,j];
S := 0;
   for i := 1 to n do
     for j := 1 to m do
       if (i = j) then S:=S+MAS[i,j];
      writeln;
       writeln('Наименьший элемент массива: ', min);
        writeln('Сумма элементов главной диагонали: ', S);
end.
1
23.10.2013, 21:00
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.10.2013, 21:00
Помогаю со студенческими работами здесь

Найти сумму элементов главной диагонали матрицы
Дан двумерный массив n*m. Найти сумму элементов главной диагонали при n=m.

Найти сумму элементов главной диагонали матрицы
Ввести матрицу B (n, n) целого типа. Найти сумму элементов главной диагонали. Заменить ею элементы...

Найти сумму элементов главной диагонали матрицы
Помогите пожалуйста с 2 задачами. Задача 1: а) Найти сумму элементов главной диагонали массива...

Matrix80. Найти сумму элементов главной диагонали матрицы
Помогите решить. ПЛИЗЗЗЗ. Дана квадратная матрица A порядка M. Найти сумму элементов ее главной...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru