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

В квадратной матрице заменить нулями все элементы, расположенные на главной диагонали и выше нее

26.05.2015, 17:54. Показов 3554. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
условие задачи: В квадратной матрице заменить нулями все элементы, расположенные на главной диагонали и выше главной диагонали.

нужно изменить код: убрать рандом, чтобы значения матрицы вписывать вручную
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var i,j,n:integer;
a:array[1..1000,1..1000]of integer; 
 begin
 writeln('Введите размерность квадратной матрицы');
 read(N);
 for i:=1 to n do 
 for j:=1 to n do a[i,j]:=random (1,n);
for i:=1 to n do
  for j:=i to n do
     a[i,j]:=0;
    for i:=1 to n do
    begin
     for j:=1 to n do
     write(a[i,j]:4);
     writeln;
     end;
     end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.05.2015, 17:54
Ответы с готовыми решениями:

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

Дана матрица A(n,n). Заменить нулями все элементы, расположенные на главной диагонали и выше неё
Дана матрица A(n,n). Заменить нулями все элементы, расположенные на главной...

Дана действительная квадратная матрица порядка 12. Замените нулями все ее элементы, расположенные на главной диагонали и выше нее.
Дана действительная квадратная матрица порядка 12. Замените нулями все ее элементы, расположенные...

Дана действительная квадратная матрица. Заменить нулями все элементы, на главной диагонали и выше нее
Дана действительная квадратная матрица порядка 12. Заменить нулями все ее элементы, расположены на...

2
54 / 45 / 97
Регистрация: 17.08.2014
Сообщений: 157
26.05.2015, 18:25 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var i,j,n:integer;
a:array[1..1000,1..1000]of integer; 
 begin
 writeln('Введите размерность квадратной матрицы');
 read(N);
 for i:=1 to n do 
 for j:=1 to n do
 begin
 write('введите элемент матрицы: ');readln(a[i,j]);
 end;
for i:=1 to n do
  for j:=i to n do
     a[i,j]:=0;
    for i:=1 to n do
    begin
     for j:=1 to n do
     write(a[i,j]:4);
     writeln;
     end;
     end.
1
0 / 0 / 0
Регистрация: 28.04.2015
Сообщений: 32
26.05.2015, 18:31  [ТС] 3
спасибо!
0
26.05.2015, 18:31
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.05.2015, 18:31
Помогаю со студенческими работами здесь

Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше нее
Дана действительная квадратная матрица D(4,4). Заменить нулями все ее элементы, расположенные на...

Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше нее.
Дана действительная квадратная матрица порядка 12. Заменит нулями все ее элементы, расположенной...

Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше нее
Дана действительная квадратная матрица порядка 12. Заменить нулями все ее элементы, расположенные...

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

Замените нулями все элементы матрицы, расположенные на главной диагонали и выше нее
Дана действительная квадратная матрица порядка 12. Замените нулями все ее элементы, расположенные...

В матрице замените нулями все ее элементы расположенные на главной диагонали и выше
Пусть дана вещественная квадратная матрица порядка 12. Замените нулями все ее элементы...


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

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

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