Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 28.05.2012
Сообщений: 25
1

Матрица. Как поменять местами строку с максимальным элементом матрицы на 3 строку

05.06.2012, 11:59. Просмотров 1137. Ответов 1
Метки нет (Все метки)

Как поменять местами строку с максимальным элементом матрицы на 3 строку?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2012, 11:59
Ответы с готовыми решениями:

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

Поменять местами строку с максимальным элементом
Задана квадратная матрица.Поменять местами строку с максимальным элементом на главной диогонали со...

Найти строку матрицы с максимальным нечетным элементом поменять эту строку местами с нулевой строкой.
помогите решить ззадачу дана квадратная матрица получаемых через rand() найти строку матрицы с...

Найти строку матрицы с максимальным нечетным элементом поменять эту строку местами с нулевой строкой
дана квадратная матрица получаемых через rand() найти строку матрицы с максимальным нечетным...

1
Почетный модератор
7954 / 3925 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
05.06.2012, 15:01 2
Лучший ответ Сообщение было отмечено Валераpascal как решение

Решение

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
uses crt;
var b: array [1..100,1..100] of integer;
    n,m,i,j,imax,jmax,buf: integer;
begin
writeln('n,m=');
readln(n,m);
imax:=1; jmax:=1;
writeln('Исходная матрица ');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        b[i,j]:=random(199)-99;
        write(b[i,j]:4);
        if b[imax,jmax]<b[i,j] then
           begin
           imax:=i; jmax:=j;
           end;
        end;
    writeln;
    end;
writeln('Наиб. элемент=',b[imax,jmax],', строка ',imax,', столбец ',jmax);
for j:=1 to m do
    begin
    buf:=b[3,j];
    b[3,j]:=b[imax,j];
    b[imax,j]:=buf;
    end;
writeln('Итоговая матрица');
   for i:=1 to n do
       begin
       for j:=1 to m do
           write(b[i,j]:4);
       writeln;
       end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2012, 15:01

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

Поменять местами строку матрицы с максимальным и минимальным элементом
Проблема такова: программа меняет местами строку с максимальным и минимальным элементом. Когда я...

Поменять местами строку с максимальным и минимальным элементом матрицы
Задана матрица размером NxN. Поменять местами строку с максимальным элементом матрицы и строку с...

Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со строкой с
Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со...

Поменять местами строку матрицы с максимальным элементом на главной диагонали со строкой m
#include&lt;conio.h&gt; #include&lt;iostream.h&gt; #include&lt;iomanip.h&gt; #include&lt;stdlib.h&gt; void main() ...


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

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

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