Матрица

@MishGun2009 · Регистрация: 11.11.2009

Студворк — интернет-сервис помощи студентам

В заданной матрице D найти наибольший и наименьший элементы и поменять их соответственно с первым и последними элементами матрицы. Исходную и полученную матрицу вывести на экран.

Добавлено через 29 минут

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
Program DemoArray;
Type
Massiv = array [1..10,1..10] of real;
Var
D: Massiv;
i, j, n, m: integer;
Sm, Min, Max: real;
Begin
Writeln('Ââåäèòå êîëè÷åñòâî ñòðîê n='); Readln(n);
Writeln('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ m='); Readln(m);
Writeln('Ââåäèòå ìàòðèöó D: ');
For i:=1 to n do
Begin
For j:=1 to m do Read(D[i,j]);
Readln;
end;
Writeln ('Èñõîäíàÿ ìàòðèöà D: ');
For i:=1 to n do
Begin
For j:=1 to m do Write (D[i,j]:5:2,'');
Writeln;
end;
Min:=D[1,1];
For i:=1 to n do
For j:=1 to m do If D[i,j]<Min then Min:=D[i,j];
Writeln('Ìèíèìàëüíûé ýëåìåíò Min=', Min:5:2);
Max:=D[1,1];
For i:=1 to n do
For j:=1 to m do If D[i,j]>Max then Max:=D[i,j];
Writeln('Ìàêñèìàëüíûé ýëåìåíò Max=', Max:5:2);
Writeln('Ïîëó÷åííàÿ ìàòðèöà');
For i:=1 to n do
begin
For j:=1 to m do Write(D[i,j]:6:2,'');
Writeln;
end;
End.

Добавлено через 43 секунды
проблема только поменять местами элементы

@Puporev · 11.11.2009, 21:17

MishGun2009, Еще раз в таком безобразном виде код выложите удалю тему.

@Давид · 11.11.2009, 21:21

MishGun2009, Проверяйте!
Если что спрашивайте!

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
Program maxim;
Uses crt;
 var b:array [1..10,1..10] of integer;
     i,j,max,min,buf,buf1,imax,jmax,imin,jmin:integer;
begin
clrscr;
  for i:=1 to 10 do
    for j:=1 to 10 do begin
                     write ('B[',i,',',j,']=');
                     Readln (b[i,j]);
                     end;
{Вывод матрицы}
writeln (' Polychena matrica ');
for i:=1 to 10 do
 begin
 for j:=1 to 10 do
    Write ('  ',b[i,j],' ');
    writeln;
 end;
writeln;
{Находим максимальный элемент}
Max:=b[1,1];
 for i:=1 to 10 do
     for j:=1 to 10 do
      if b[i,j]>=max then begin
                          max:=b[i,j];
                          imax:=i;
                          jmax:=j;
                          end;
writeln (' Maximalnyi element - ',max);
{Находим минимальный элемент}
Min:=b[1,1];
 for i:=1 to 10 do
   for j:=1 to 10 do
     if b[i,j]<min then begin
                        min:=b[i,j];
                        imin:=i;
                        jmin:=j;
                        end;
Writeln (' Minimalnyi element - ',min);
{меняем местами первый элемент с максимальным}
buf:=b[1,1];
b[1,1]:=b[imax,jmax];
b[imax,jmax]:=buf;
{меняем местами последний элемент с минимальным}
buf1:=b[n,m];
b[n,m]:=b[imin,jmin];
b[imin,jmin]:=buf1;
{вывод матрицы на экран}
writeln (' Polychena matrica ');
for i:=1 to 10 do
 begin
 for j:=1 to 10 do
    Write ('  ',b[i,j],' ');
    writeln;
 end;
Readln
end.

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	11.11.2009, 21:17
	MishGun2009, Еще раз в таком безобразном виде код выложите удалю тему. 0