2 / 2 / 0
Регистрация: 21.04.2009
Сообщений: 23
1

Найти наибольший элемент главной диагонали

22.04.2009, 00:48. Показов 5529. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Найти наибольший элемент главной диагонали квадратной матрицы и напечатать номер строки, в которой он находится
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.04.2009, 00:48
Ответы с готовыми решениями:

Найти в матрице наибольший элемент на главной диагонали
Помогите, пожалуйста с задачей-Найти в данном двумерном массиве размера n x n наибольший элемент на...

Найти наибольший элемент главной диагонали и определить его индексы
В матрице 8х8 из вещественных чисел в пределах от -20 до 20 найти наибольший элемент главной...

Найти наибольший элемент главной диагонали матрицы и произвести действия согласно задания
В матрице 8х8 из вещественных чисел в пределах от –20 до 20 найти наибольший элемент главной...

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

3
24 / 24 / 2
Регистрация: 02.11.2008
Сообщений: 118
22.04.2009, 01:36 2
Код
uses crt;
var
a: array[1..3,1..3] of integer;
i,j,nstr,max: integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
begin
read(a[i,j]);
end;
max:=a[1,1];
for i:=1 to 3 do
begin
if a[i,i]>max
then
begin
max:=a[i,i];
nstr:=i;
end;
end;
writeln('Наибольший элемент = ', max,' он расположен в ',nstr,'-й строке');
readln
end.
0
3 / 3 / 1
Регистрация: 21.04.2009
Сообщений: 35
22.04.2009, 01:40 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
34
35
36
37
38
39
40
41
program Project1;
 
{$APPTYPE CONSOLE}
var a: array[1..3,1..3] of integer;
    b: array [1..3] of integer;
   max,maxs,min,k,i,j:integer;
begin
for i:=1 to 3 do begin                      {ввод массива}
    for j:=1 to 3 do  begin
     Write('Mas[',i,',',j,']=');
     readln(a[i,j]);
    end;
    writeln;
  end;
 for i:=1 to 3 do begin                      {вывод массива}
    for j:=1 to 3 do  begin
     Write(a[i,j]:3);
     end;
     writeln;
   end;
   writeln;
   i:=1;
   j:=1;
   k:=1;
   writeln ('main diagonal: ');
repeat                                      {главная диагональ}
   write(a[i,j]:3);
   i:=i+1;
   J:=j+1;
   K:=i+1;
until i=4;
 for i := 1 to 3 do begin
  read(b[i]);
 end;                                        {поиск мах элемента}
   max:=b[1];
    for i:=1 to 3 do
      if max<b[i] then max:=b[i];
      b[i]:=max;
     write('max: ',max);
     readln;
      end.
0
138 / 138 / 65
Регистрация: 20.03.2009
Сообщений: 235
22.04.2009, 02:01 4
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
uses crt;
 
const n=5;
 
type
    mas=array [1..10,1..10] of integer;
var
   e:mas;
   i,j,k,max,p,q:integer;
begin
   clrscr;
       randomize;
       for i:= 1 to n do
   begin
    for j:=1 to n do
   begin
     e[i,j]:=random(20);
                write(e[i,j]:3);
     end; writeln; end;
 
{поиск максимального}
max:=e[1,1];  p:=1; q:=1;
    for i:= 1 to n do
    for j:= 1 to n do
         if e[i,j]>max then 
         begin
    if i=j then
    max:= e[i,j]; p:=i; q:=j; end;
write('Максимальный: ',max,' ','находится в ',q, ' строке ');
readkey;
end.
0
22.04.2009, 02:01
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.04.2009, 02:01
Помогаю со студенческими работами здесь

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

Найти в каждой строке матрицы наибольший элемент и поменять его местами с элементом на главной диагонали
Исправте пожалуйста ошибки uses crt; var m:array of integer;a,b,i,y,j,k:integer; z:array of...

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru