Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Рыбчик
0 / 0 / 1
Регистрация: 29.04.2013
Сообщений: 33
1

В квадратной действительной матрице найти максимальный и минимальный элементы

11.05.2013, 21:02. Просмотров 621. Ответов 1
Метки нет (Все метки)

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

В квадратной действительной матрице найти максимальный и минимальный элементы
В квадратной действительной матрице найти максимальный и минимальный элементы....

Найти максимальный и минимальный элементы матрицы и их произведение
Задали двумерный массив н * м действительных чисел m = 3, n = 4. Найты...

Двумерный массив. Найти максимальный и минимальный элементы, поменять их местами
Free Pascal. Дан массив. Количество элементов задано в программе. Элементы...

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

Дан массив А(20). Найти минимальный и максимальный элементы массива, и их порядковые номера
Дан массив А(20). Найти минимальный и максимальный элементы массива, и их...

1
Puporev
Модератор
54704 / 42115 / 29080
Регистрация: 18.05.2008
Сообщений: 99,402
12.05.2013, 11:39 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
uses crt;
const nmax=10;
type mtr=array[1..nmax,1..nmax] of real;
procedure vvod(var a:mtr;var n:byte);
var i,j:byte;
begin
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
for j:=1 to n do
a[i,j]:=10*random
end;
procedure vyvod(a:mtr;n:byte);
var i,j:byte;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln
 end
end;
procedure obrabotka(var a:mtr;n:byte;var mn,mx:real);
var i,j,imx,jmx:byte;
begin
mx:=a[1,1];
imx:=1;
jmx:=1;
mn:=a[1,1];
for i:=1 to n do
for j:=1 to n do
 begin
  if a[i,j]>mx then
   begin
    mx:=a[i,j];
    imx:=i;
    jmx:=j
   end;
  if a[i,j]<mn then mn:=a[i,j];
 end;
writeln('Минимальный элемент=',mn:0:2);
writeln('Максимальный элемент a[',imx,',',jmx,']=',mx:0:2);
if imx=jmx then
 begin
  writeln('Находится на главной диагонали');
  writeln('Замена элеменнтов первой строки на максимальный элемент');
  for j:=1 to n do
  a[1,j]:=mx;
 end
else
 begin
  writeln('Находится не на главной диагонали');
  writeln('Замена элеменнтов первой строки на минимальный элемент');
  for j:=1 to n do
  a[1,j]:=mn;
 end
end;
 
var a:mtr;
    n:byte;
    mn,mx:real;
begin
clrscr;
randomize;
vvod(a,n);
writeln('Исходная матрица:');
vyvod(a,n);
obrabotka(a,n,mn,mx);
vyvod(a,n);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.05.2013, 11:39

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

В матрице найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элементы
В матрице размером n на m (1&lt;n, m&lt;10) (ввод n, m и матрицы с клавиатуры) найти...

Найти минимальный и максимальный элементы в матрице и их индексы
Кто сможет помоч,с меня +. Заполнить матрицу из 3 строк и 4...


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

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

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