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

Вычислить сумму элементов матрицы, расположенных над главной диагональю

22.12.2013, 00:50. Просмотров 834. Ответов 1
Метки нет (Все метки)

Помогите с решением
В заданной квадратной матрице A(K,K) (K<=10) вычислить сумму элементов, расположенных над главной диагональю. Полученной суммой заменить минимальный элемент всей матрицы. Сумму и матрицу распечатать.
мой нынешний вариант
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
program sem4; 
uses crt;
const
    nmax=10;
  var
    a: array[1..nmax,1..nmax] of integer;
    min,i,j,sum,k,n: integer;
begin
  write('Введите размер мартицы: ');
  readln(n);
 
  
  writeln('Матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
   begin 
 write('A[',i,',',j,']='); 
 readLn(A[i,j]);
    end;
    writeln;
  end;
 
 
 
  sum:=0; k:=0;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if (j>i)and(a[i,j]>0) then
      begin
        inc(k);
        sum:=sum+a[i,j];
         end
      else write('    ');
    end;
    writeln;
  end;
  begin;
  For i:=1 to n do
  for j:=1 to n do
  
 min:=A[1,1];
 for i:=1 to n do
  for j:=1 to n do
  if min>a[i,j] then  min:=a[i,j];
  end;
 for i := 1 to n do begin if a[i,j]=min then a[i,j]:= sum; 
write(A[i,j]:4);
 writeln();
 
 end;
   writeln('сумма элементов= ',sum,'; minimum ',min);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2013, 00:50
Ответы с готовыми решениями:

Вычислить сумму элементов матрицы, расположенных над главной диагональю
Вычислить сумму элементов матрицы, расположенных над главной диагональю. Размер матрицы вводится с...

Вычислить сумму элементов матрицы, расположенных над главной диагональю
Вычислить сумму элементов матрицы, расположенных над главной диагональю. Размер матрицы вводить с...

Даны матрицы А(4,3) и В(3,5). Для каждой матрицы вычислить сумму элементов над главной диагональю
Даны матрицы А(4,3) и В(3,5). Для каждой матрицы вычислить сумму элементов над главной диагональю....

Вычислить и запомнить сумму и число положительных элементов матрицы над главной диагональю
Задана матрица В(N,N). Вычислить и запомнить сумму и число положительных элементов матрицы над...

1
0 / 0 / 2
Регистрация: 22.12.2013
Сообщений: 3
25.12.2013, 13:47  [ТС] 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
uses crt; // модель для работы с экраном
 
const
    K = 3 ; //  задаем размер нашего массива
type
    massiv = array [1..K, 1..K] of integer; // создаем тип для массива
var
    mass : massiv; // объявляем 
    summa , min , i , j : integer; // переменные
 
begin
clrscr; // очищаем экран
randomize; // включаем генератор случайных чисел
summa := 0; // обнуляем сумму
 
for i:=1 to K do // пускаем 
    for j:=1 to K do // цикл
        mass[i,j] := random(10); // и заполняем массив случайными числами
 
min := mass[1,1]; // минимальному элементу присваиваем зн-е 1-го элемента массива
 
for i:=1 to K do // пускаем
    begin
        for j:=1 to K do // цикл
            begin
                write(mass[i,j], ' | '); // выводим массив
                if (mass[i,j] < min) then
                    min := mass[i,j]; // ищем минимальным элемент
            end;
        writeln; // переносим курсор на новую строку, чтобы получилась матрица
    end;
 
for i := 1 to K do // пускаем 
    for j := i + 1 to K do // цикл
       summa := summa + mass[i,j]; // ищем сумму
 
Writeln;
Writeln('Минимальный элемент матрицы: ', min);
Writeln('Сумма равна ', summa);
Writeln('Матрица :');
 
for i:=1 to K do // пускаем 
    begin
        for j:=1 to K do // цикл 
            begin
                if (mass[i,j] = min) then
                    mass[i,j] := summa; // заменяем минимальные элементы на сумму
                write(mass[i,j]:2, ' | '); // выводим новый массив
            end;
        writeln;
    end;
 
readln; // чтобы программа не закрывалась
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.12.2013, 13:47

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

Вычислить сумму и число положительных элементов матрицы A[N,M] , находящихся над главной диагональю
ПОМОГИТЕ!!!!!! Вычислить сумму и число положительных элементов матрицы A , находящихся над главной...

Вычислить сумму и число положительных элементов матрицы, находящихся над главной диагональю
Вычислить сумму и число положительных элементов матрицыA,находящихся над главной диагональю

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

В двумерном целочисленном массиве С[4][4] найти сумму положительных элементов, расположенных над главной диагональю
В двумерном целочисленном массиве С найти сумму положительных элементов, расположенных над главной...


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

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

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