Сравнить максимальные элементы матриц

25.05.2015, 12:36. Показов 574. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

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

Даны две матрицы третьего порядка А и В найти максимальный элемент
если макс. эл. матрицы А больше макс. эл. матрицы В, то переменной S присвоить -1,
если макс. эл. матрицы А равен макс. эл. матрицы В, то переменной S присвоить 0,
если макс. эл. матрицы А меньше макс. эл. матрицы В, то переменной S присвоить 1.

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
37
38
39
40
program P2_V13_Litenkov;
uses crt;
const n=3;
type mas=array[1..n, 1..n] of integer;
var A,B:mas; i,j,o,p,s:integer;
 
procedure wwod(n:integer; var x:mas);
begin
for i:=1 to n do
      for j:=1 to n do
         readln (x[i,j]);
end;
procedure wiwod(x:mas; n:integer);
begin
for i:=1 to n do
      for j:=1 to n do
         writeln (x[i,j]);
end;
procedure max_el(x:mas; n:integer; var max:integer);
begin
max:=A[1,1];
for i:=1 to n do
    for j:=2 to n do
if max<A[i,j] then
            max:=A[i,j];
            Writeln ('max_el=',max);
end;
begin
wwod(n,a);
wwod (n,b);
max_el(a,n,o);
max_el(b,n,p);
wiwod (a,n);
wiwod (b,n);
begin
if o>p then s:=-1 else
       if o=p then s:=0 else
              s:=1;
end;
end.

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

25.05.2015, 12:36

Ответы с готовыми решениями:

Сравнить максимальные элементы в 3 и в 8 столбце матрицы
Дан массив M = }, i=1,10; j=1,10 ] Сравнить max- элемент в 3 столбце и max- элемент в 8 столбце.

Упорядочить по убыванию максимальные элементы матриц
Даны три матрицы А, B, С Упорядочить по убыванию три числа х, у, z, где х - максимальный элемент матрицы А, в - максимальный элемент...

Переместить максимальные элементы массива в начало, сдвинув остальные элементы вправо
Одномерный массив А заполнить случайными числами из диапазона . Переместить максимальные элементы в начало, сдвинув остальные элементы...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

25.05.2015, 12:36

Помогаю со студенческими работами здесь

Дан одномерный массив. Переместить максимальные элементы в конец, сдвинув остальные элементы влево
Собственно сабж... "Дан одномерный массив. Переместить максимальные элементы в конец, сдвинув остальные элементы влево"

Создать в матрице два дополнительных столбца.В первый из них поместить минимальные элементы, а во второй максимальные элементы каждой строки
Дан произвольный двумерный массив целых чисел. Создать в нем два дополнительных столбца.В первый из них поместить минимальные элементы, а...

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

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

Обнулялись все максимальные элементы матрицы
как сделать чтоб обнулялись все максимальные элементы двумерного массива?

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

Наверх