Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
1 / 1 / 0
Регистрация: 30.03.2015
Сообщений: 15
1

Поменять местами минимальный из положительных элементов матрицы и максимальный элемент 3-го столбца

19.05.2015, 16:13. Показов 662. Ответов 1
Метки нет (Все метки)

-1 7 12 8
-1 3 -4 4
3 2 -1 4
Поменять местами минимальный из положительных элементов матрицы и максимальный элемент 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
42
43
44
45
46
47
48
i,j,n,k,r:integer; min,max: real;
fr, fw: text;
begin
assign (fr,'c:\student\14-ttp\lisina\dan5l.pas');
reset(fr);
assign (fw,'c:\student\14-ttp\lisina\res5_lis.pas');
rewrite (fw);
for i:=1 to 3 do
for j:=1 to 4 do
read (fr,a[i,j]);
writeln (fw,'isx mas A');
for i:=1 to 3 do
begin
for j:=1 to 4 do
write (fw, a[i,j]:6:1);
writeln(fw);
end;
min:=a[1,1];
for i:=1 to 3 do
for j:=1 to 4 do
if(a[i,j]>0)and(a[i,j]<min) then
begin
min:=a[i,j];
k:=i;
n:=j;
end;
max:=a[1,3];
for i:=1 to 3  do
if a[i,j]>max then
begin
max:=a[i,3];
r:=i;
end;
c:=a[k,n];
a[k,n]:=a[r,3];
a[r,3]:=c;
end;
writeln(fw);
writeln (fw,'new mas A');
for i:=1 to 3 do
begin
for j:=1 to 4 do
write (fw, a[i,j]:6:1);
writeln(fw);
end;
close (fr);
close (fw);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.05.2015, 16:13
Ответы с готовыми решениями:

Поменять местами минимальный из положительных элементов матрицы и максимальный элемент 3-го столбца
Поменять местами минимальный из положительных элементов матрицы и максимальный элемент 3-го столбца...

Поменять местами минимальный из положительных элементов матрицы и максимальный элемент столбца
Поменять местами минимальный из положительных элементов матрицы и максимальный элемент ...

Определить минимальный элемент 1-го столбца массива, максимальный элемент 9-го столбца и поменять их местами
Сформировать массив 13 × 13 из чисел в диапазоне от –100 до 150. Определить минимальный элемент...

Поменять местами минимальный по степени 2 внедиагональный элемент и максимальный элемент столбца
Поменять местами минимальный по степени 2 внедиагональный элемент и максимальный элемент столбца,...

1
283 / 281 / 84
Регистрация: 03.02.2013
Сообщений: 808
21.05.2015, 03:13 2
где-то на 5 строчке чтения этого кода я потерял связь не только с исходной задачей, но и с реальностью...
не побоюсь спросить, вы вообще понимаете в чём суть задачи и что в этом коде написано?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2015, 03:13

Поменять местами максимальный и минимальный элемент матрицы
Помогите пожалуйста: Задана целочисленная матрица размером N×M. Поменять местами...

Поменять местами максимальный и минимальный элемент матрицы
Здравствуйте. Задача вроде бы простая, но у меня возникло затруднение. Искал подобные, но свою...

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

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


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

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

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