Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
vania_10111
0 / 0 / 2
Регистрация: 08.11.2009
Сообщений: 74
1

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

02.12.2009, 13:17. Просмотров 858. Ответов 2
Метки нет (Все метки)

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


Помигите срочно нада
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2009, 13:17
Ответы с готовыми решениями:

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

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

Найти наибольший элемент в каждой строке матрицы
Дана матрица n*m. Найти наибольший элемент в каждоый строке. Отсортировать эти...

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

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

2
Puporev
Модератор
55428 / 42551 / 29405
Регистрация: 18.05.2008
Сообщений: 100,668
02.12.2009, 14:26 2
Лучший ответ Сообщение было отмечено vania_10111 как решение

Решение

Можно так.
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
41
42
43
44
45
46
47
48
uses crt;
var a:array[1..20,1..20]of ^integer;
    i,j,v,imx:integer;
    n:^integer;
begin
clrscr;
randomize;
new(n);
write('Vvedite n=');readln(n^);
writeln('Vvedite ',n^*n^,' elementov');
for i:=1 to n^ do
for j:=1 to n^ do
  begin
{   write('a[',i,',',j,']=');}//если вводить с клавиатуры
   new(a[i,j]);
   a[i,j]^:=random(20);
  end;
clrscr;
writeln('Ishodnaja matrica:');
for i:=1 to n^ do
  begin
   for j:=1 to n^ do
   write(a[i,j]^:4);
   writeln;
  end;
for i:=1 to n^ do
   begin
    imx:=1;
    for j:=1 to n^ do
    if a[i,j]^>a[i,imx]^ then imx:=j;
    v:=a[i,i]^;
    a[i,i]^:=a[i,imx]^;
    a[i,imx]^:=v;
   end;
writeln;
writeln('Rezultat:');
for i:=1 to n^ do
   begin
     for j:=1 to n^ do
     write(a[i,j]^:4);
     writeln;
   end;
for i:=1 to n^ do
for j:=1 to n^ do
dispose(a[i,j]);
dispose(n);
readln
end.
1
vania_10111
0 / 0 / 2
Регистрация: 08.11.2009
Сообщений: 74
03.12.2009, 15:47  [ТС] 3
Дзякуй вельмі выратаваў мяне.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.12.2009, 15:47

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

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

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


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

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

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