Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Работа с файлами. Вывести элемент матрицы, расположенный в I-й строке и J-м столбце https://www.cyberforum.ru/ pascalabc/ thread596747.html
Даны два целых числа I, J и файл вещественных чисел, содержащий элементы квадратной матрицы (по строкам). Вывести элемент матрицы, расположенный в I-й строке и J-м столбце (строки и столбцы...
Pascal ABC Работа с файлами. Дан символьный файл. Удалить все его элементы, расположенные после первого символа пробела
Дан символьный файл, содержащий по крайней мере один символ пробела. Удалить все его элементы, расположенные после первого символа пробела, включая и этот пробел.
Работа с файлами. Даны три файла целых чисел. Создать новый файл, в котором чередовались бы элементы исходных файлов Pascal ABC
Даны три файла целых чисел одинакового размера с именами SA, SB, SC и строка SD. Создать новый файл с именем SD, в котором чередовались бы элементы исходных файлов с одним и тем же номером: A1, B1,...
Pascal ABC Работа с файлами. Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты. Что здесь не правильно? var f: file of real; i: integer; k, k1: real; begin assign(f, 'Файл вещественных... https://www.cyberforum.ru/ pascalabc/ thread596744.html
Pascal ABC Если S является допустимым именем файла, то создать пустой файл с именем и вывести True https://www.cyberforum.ru/ pascalabc/ thread596741.html
Дана строка S. Если S является допустимым именем файла, то создать пустой файл с этим именем и вывести True. Если файл с именем S создать нельзя, то вывести False. Это условие самой задачи. ...
Дан текстовый файл. Ввести слово с клавиатуры. Определить сколько раз встречается данное слово в файле Pascal ABC
В чем ошибка? uses crt; var f:text; sl,str,st1:string; j,p,l:integer; begin readln(sl); j:=0; assign(f,'C:\123.txt');
Pascal ABC Что нужно, чтобы работать с графикой
На авс паскаль можно ли как нить подключить библиотеку "graph"? на Си Microsoft Visual Studio 2008 как нить установить?
Pascal ABC Найти все целые числа из промежутка от а до в, у которых количество делителей R. Помогите решить прожалуйста... Найти все целые числа из промежутка от а до в, у которых количество делителей R. Если таких чисел нет, то должно быть соотсвествующее сообщение. https://www.cyberforum.ru/ pascalabc/ thread596651.html
Pascal ABC Отсортировать элементы каждой строки матриц https://www.cyberforum.ru/ pascalabc/ thread596551.html
Отсортировать элементы каждой строки матриц А(m*n) по возростанию в которых есть 1. С помощью процедур.матрицу вводит пользователь
Pascal ABC Двумерные массивы. Вывести минимальный элемент для каждой строки, исходную и получившуюся матрицы Люди! Помогите пожалуйста! Не получается ничего! Буду очень благодарна! 1. В матрице размером n на m (1<n, m<10) (ввод n,m и матрицы с клавиатуры) найти минимальный элемент в каждой строке и... https://www.cyberforum.ru/ pascalabc/ thread596534.html
Почетный модератор
7954 / 3925 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
05.06.2012, 15:01 0

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

05.06.2012, 15:01. Просмотров 1142. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Валера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.


Вернуться к обсуждению:
Матрица. Как поменять местами строку с максимальным элементом матрицы на 3 строку
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2012, 15:01
Готовые ответы и решения:

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

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

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

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

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