Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Константин92
1 / 1 / 0
Регистрация: 02.11.2009
Сообщений: 18
#1

диоганаль

23.11.2009, 23:25. Просмотров 823. Ответов 1
Метки нет (Все метки)

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

Сложение и умножение матриц, Побочную диоганаль поменять местами
Нужна программа выполняющая *Сложение и умножение матриц, Побочную диоганаль поменять местами *...


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

Или воспользуйтесь поиском по форуму:
1
Горбуша
1 / 1 / 1
Регистрация: 06.11.2009
Сообщений: 25
23.11.2009, 23:30 #2
Лучший ответ Сообщение было отмечено Константин92 как решение

Решение

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
program Гор;
uses crt;
var
a:array [1..10,1..10] of integer;
c:array [1..10,1..10] of integer;
 n,z,h,v,q,u,t,b,i,j,x,y,max,min,m: integer;
begin
clrscr;
       writeln ('Yclovie');
     write ('Vvodim m='); readln (m);
     write ('Vvodim n='); readln (n);
x:=1;y:=10;
     for i:=1 to m do begin
     for j:=1 to n do begin
     gotoxy(x,y); x:=x+3;readln (a[i,j]);
     c[i,j]:=a[i,j];x:=x+3;end;
     x:=1;
     y:=y+1;end;
     for i:=1 to m do begin
     for j:=1 to n do begin
     if  (i<j) then max:=a[i,j];
     if  (i>j) then min:=a[i,j];
end;end;
     for i:=1 to m do begin
     for j:=1 to n do begin
     if  (i<j) and (a[i,j]>max) then max:=a[i,j];
     if  (i>j) and (a[i,j]<min) then min:=a[i,j];
end;end;
for i:=1 to m do begin
for j:=1 to n do begin
if (max=(a[i,j])) and (i<j)then begin z:=i;h:=j;end;
if (min=(a[i,j])) and (i>j)then begin v:=i;b:=j;end;
end;end;
     writeln ('max= ',max,'(',z,',',h,')');
     writeln ('min= ',min,'(',v,',',b,')'); begin
     x:=1;y:=y+3;
     for i:=1 to m do begin
     for j:=1 to n do begin
     c[i,j]:=a[i,j];
     c[z,h]:=a[v,b];
     c[v,b]:=a[z,h];
     gotoxy(x,y);x:=x+6;writeln (c[i,j]);end;
     x:=1;
     y:=y+1;
end;end;
     readkey;
end.
Добавлено через 4 минуты
недавно сам такую решал)
1
Ответ Создать тему
Опции темы

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