2 / 2 / 1
Регистрация: 25.05.2012
Сообщений: 12
1

Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали

20.06.2012, 22:20. Показов 5424. Ответов 1
Метки нет (Все метки)

дана целочисленная квадратная матрица А. найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали.вывести начальную и конечную матрицы
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.06.2012, 22:20
Ответы с готовыми решениями:

Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали
найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали....

Найти минимальный элемент каждого столбца матрицы и поменять его местами с элементом побочной диагонали
Уважаемые форумчане , прошу помочь с программой данного содержания: "Дана квадратная матрица, в...

Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали
помогите пожалуста написать программу имя матрицы и размеры: P(N,N) Действия: Найти в каждой...

Найти в каждой строке матрицы наибольший элемент и поменять его местами с элементом на главной диагонали
Исправте пожалуйста ошибки uses crt; var m:array of integer;a,b,i,y,j,k:integer; z:array of...

1
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
20.06.2012, 22:50 2
Лучший ответ Сообщение было отмечено ирина1994 как решение

Решение

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
uses crt;
const nmax=15;
var a: array [1..nmax,1..nmax] of integer;
    n,i,j,jmax: byte;
    buf: integer;
begin
repeat
write('Размерность, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
writeln('Исходная матрица');
for i:=1 to n do
    begin
    jmax:=1;
    for j:=1 to n do
        begin
        a[i,j]:=random(19)-9;
        write(a[i,j]:4);
        if a[i,j]>=a[i,jmax] then jmax:=j;
        end;
    buf:=a[i,jmax];
    a[i,jmax]:=a[i,i];
    a[i,i]:=buf;
    writeln;
    end;
writeln('Преобразованная матрица ');
for i:=1 to n do
    begin
    for j:=1 to n do
        write(a[i,j]:4);
    writeln;
    end;
readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.06.2012, 22:50
Помогаю со студенческими работами здесь

Найти в каждой строке матрицы наибольший элемент и поменять его местами с элементом главной диагонали.
Помогите пожалуйста решить прогу очень срочно нада. До 13.00 очень нада. "Дана целочисленная...

Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали в этой же строке
Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его...

Дана целочисленная квадратная матрица.Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали..
..

Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали
Матрица 1.Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и...


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

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

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