Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
azamat92
0 / 0 / 0
Регистрация: 22.12.2009
Сообщений: 7
#1

Дана матрица (nxm).Найти максимальный элемент в каждой строке этой матрицы

22.12.2009, 19:41. Просмотров 1516. Ответов 2
Метки нет (Все метки)

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

Найти максимальный элемент в каждой строке матрицы и поменять его с первым элементом этой же строки
Заполнить двумерный массив N x N случайными числами из интервала и...

Найти максимальный элемент в каждой строке матрицы и заменить его числом 1.
найти максимальный элемент в каждой строке матрицы и заменить его числом...

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

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

Найти в каждой строке матрицы максимальный и минимальный элемент и поменять их с первым и последним элементом соответственно
Товарищи нужна помощь в решении задания...заранее благодарю :bravo: Дана...

2
Snoopy
1912 / 1069 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
22.12.2009, 19:49 #2
Лучший ответ Сообщение было отмечено azamat92 как решение

Решение

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
uses crt;
var a:array[1..100,1..100] of integer;
    b:array[1..100] of integer;
    i,j,n,m:integer;
 begin
  ClrScr;
  Randomize;
 repeat
  Write('n=');
  Readln(n);
  Write('m=');
  Readln(m);
   for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      a[i,j]:=random(20)-10;
      Write(a[i,j]:4);
     end;
    Writeln;
   end;
 b[i]:=0;
  for i:=1 to n do
   for j:=1 to m do
    if a[i,j]>b[i] then
     b[i]:=a[i,j];
 Writeln;
  for i:=1 to n do
   Write(b[i]:4);
 until (n>1) and (m>1);
 Readln;
end.
2
Тамила
751 / 545 / 209
Регистрация: 12.11.2009
Сообщений: 1,100
22.12.2009, 19:50 #3
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;
 var
 a:array[1..100,1..100]of integer;
 i,j,n,m,max:integer;
begin clrscr;
write('m='); read(m);
write('n='); read(n);
for i:=1 to m do
for j:=1 to n do
 begin
   write('a[',i,',',j,']=');
   read(a[i,j]);
 end;
writeln;
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j],'  ');
  writeln;
 end;
writeln;
max:=a[1,1];
for i:=1 to m do
 begin max:=a[i,1];
  for j:=1 to n do
   begin
    if a[i,j]>max then
      max:=a[i,j];
   end;
    write('max=',max,'  ');
 end;
readkey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.12.2009, 19:50

Дана матрица B[N,M].Найти в каждой строке матрицы макс. и мин. элементы и поменять их местами первым и последним элементом строки соответственно
ребята помогите плиз!!! Дана матрица B.Найти в каждой строке матрицы макс. и...

Найти максимальный по модулю элемент матрицы размером nxm
Задана матрица размером nxm. Найти максимальный по модулю элемент матрицы....

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


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

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

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