Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Bases
0 / 0 / 0
Регистрация: 24.12.2013
Сообщений: 13
1

Замените положительные элементы матрицы, стоящие ниже побочной диагонали, восьмерками

25.12.2013, 12:42. Просмотров 871. Ответов 1
Метки нет (Все метки)

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

Добавлено через 11 секунд
Помогите

Добавлено через 5 минут
ХЕллп
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2013, 12:42
Ответы с готовыми решениями:

Массив: в матрице элементы, стоящие на главной диагонали, замените минимальным элементом, лежащим ниже главной диагонали.
помогите пожалуйста. в матрице a(5x5) элементы стоящие на главной диагонали,замените минимальным...

Удвоить все положительные элементы ниже побочной диагонали
Помогите пожалуйста...Дана матрица А1 и А2 (размерность ввести). Удвоить все положительные элементы...

Обнулить элементы матрицы, лежащие одновременно ниже главной диагонали и выше побочной диагонали
Дана квадратная матрица порядка М. Обнулить элементы матрицы, лежащие одновременно ниже главной...

Определить элементы матрицы, стоящие ниже главной диагонали
дана программа uses crt; const n=4; var m1,m2:arrayof real; i,j:integer; s:real; begin...

Переписать в массив В все элементы матрицы А, расположенные ниже побочной диагонали
Переписать в массив В все элементы матрицы А, расположенные ниже побочной диагонали. program...

1
Erato
20 / 8 / 7
Регистрация: 22.10.2012
Сообщений: 76
25.12.2013, 13:44 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
uses crt;
const n=2;
var a:array[1..n,1..n] of integer;
    i,j:integer;
begin
clrscr;
writeln('zapolni massiv');
for i:=1 to n  do
for j:=1 to n do
readln (a [i,j]);
writeln('Before:');
writeln('-----');
writeln('|',a[1,1],'|',a[1,2],'|');
writeln('-----');
writeln('|',a[2,1],'|',a[2,2],'|');
writeln('-----');
if a[2,1]> 0 then a[2,1]:=8;
writeln('After:');
writeln('-----');
writeln('|',a[1,1],'|',a[1,2],'|');
writeln('-----');
writeln('|',a[2,1],'|',a[2,2],'|');
writeln('-----');
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2013, 13:44

Заменить нулями все элементы, расположенные на побочной диагонали и ниже ее матрицы
Заменить нулями все элементы, расположенные на побочной диагонали и ниже ее матрицы размером 7x7.Не...

Массив: Заменить нулями все элементы, расположенные на побочной диагонали и ниже ее матрицы
Создайте массив A с помощью генератора случайных чисел и выведите его на экран.Увеличте все его...

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


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

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

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