Процедура поиска минимального эллемента массива

@nikolairzn · Регистрация: 12.10.2012

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

Создать матрицы А[n*m] и В[k*m]. Вывести их. В подпрограмме определить минимальное в матрице А и минимальное в матрице В. Столбец той матрицы, где наименьшее минимальное, обнулить, а столбец матрицы с большим минимальным рассортировать по убыванию. При выводе матриц выделить цветом тот столбец, где произошло изменение.
Паскаль изучаю недавно,по этому появились проблемы при решении данной задачи .Буду очень благодарен если напишите весь код,или хотя бы процедуру по определению минимального эллемента(хотя свои наработки есть но они очень кривые ).Заранее благодарен.

@sumrak95 · 17.10.2012, 21:49

Сообщение от nikolairzn

процедуру по определению минимального эллемента

Pascal
1
2
3
4
5
6
7
8
9
10
const N=20;
var i,min:integer; a:array[1..N] of integer;
begin
...
//Ввод массива
min:=N+1;
For i:=1 to N do begin
if min>a[i] then
min:=a[i];
end;

Если завтра будет актуально возможно напишу всю программу, сейчас времени нету просто

@sumrak95 · 17.10.2012, 21:51

Зачем дублирование темы?

Pascal
1
2
3
4
5
6
7
8
9
10
const N=20;
var i,min:integer; a:array[1..N] of integer;
begin
...
//Ввод массива
min:=N+1;
For i:=1 to N do begin
if min>a[i] then
min:=a[i];
end;

@nikolairzn · 17.10.2012, 22:00 **[ТС]**

Сообщение от sumrak95

Pascal
1
2
3
4
5
6
7
8
9
10
const N=20;
var i,min:integer; a:array[1..N] of integer;
begin
...
//Ввод массива
min:=N+1;
For i:=1 to N do begin
if min>a[i] then
min:=a[i];
end;

Если завтра будет актуально возможно напишу всю программу, сейчас времени нету просто

можно все то же самое только для двумерных массивов(которые я указал) и оформить в процедуру(дело в том что наибольшее затруднение как раз вызывает сама процедура.

@КонецСвета · 17.10.2012, 22:43

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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
uses crt;
const nmax=15;
type mas=array [1..nmax,1..nmax] of integer;
var  n,m,k,ja,jb: byte;
     a,b: mas;
     mina,minb: integer;
     
procedure Gen (var ri, rj: byte; var z: mas);
var i,j: byte;
begin
for i:=1 to ri do
    for j:=1 to rj do
        z[i,j]:=random(199)-99;
end;
 
procedure Print (c: char; ns,ri,rj: byte; z: mas);
var i,j: byte;
begin
textcolor(0);
writeln('Матрица ',c);
for i:=1 to ri do
    begin
    for j:=1 to rj do
        begin
        if j=ns then textcolor(4) else textcolor(0);
        write(z[i,j]:4);
        end;
    writeln;
    end;
end;
 
procedure MMMin (ri,rj: byte; z: mas; var min: integer; var ns: byte);
var i,j,imin,jmin: byte;
begin
imin:=1; jmin:=1;
for i:=1 to ri do
    for j:=1 to rj do
        if z[i,j]<z[imin,jmin] then
           begin
           jmin:=j; imin:=i;
           end;
min:=z[imin,jmin];
ns:=jmin;
end;
 
procedure Nul (ns,ri,rj: byte; var z: mas);
var i: byte;
begin
for i:=1 to ri do
    z[i,ns]:=0;
end;
 
procedure Swap(var x,y: integer);
var buf:integer;
begin
buf:=x;
x:=y;
y:=buf;
end;
 
procedure Sort (ns,ri,rj: byte; var z: mas);
var i,e: byte;
begin
e:=0;
while e<=ri do
      begin
      for i:=2 to ri do
          if z[i-1,ns]<z[i,ns] then Swap(z[i-1,ns],z[i,ns]);
      inc(e);
      end;
end;
 
begin
repeat
write('n (не более ',nmax,')='); readln(n);
until n in [1..nmax];
repeat
write('m (не более ',nmax,')='); readln(m);
until m in [1..nmax];
repeat
write('k (не более ',nmax,')='); readln(k);
until k in [1..nmax];
Gen (n,m,a);  Gen (k,m,b);
Print ('A',0,n,m,a); Print ('B',0,k,m,b);
MMMin (n,m,a,mina,ja); MMMin (k,m,b,minb,jb);
if mina<minb then
   begin
   Nul (ja,n,m,a);
   Sort (jb,k,m,b);
   end else
       begin
       Sort (ja,n,m,a);
       Nul (jb,k,m,b);
       end;
Print ('A',ja,n,m,a); Print ('B',jb,k,m,b);
end.

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/

@nikolairzn 1 / 1 / 0 Регистрация: 12.10.2012 Сообщений: 17

	Процедура поиска минимального эллемента массива 17.10.2012, 20:33. Показов 1954. Ответов 4 Метки нет (Все метки) Создать матрицы А[nm] и В[km]. Вывести их. В подпрограмме определить минимальное в матрице А и минимальное в матрице В. Столбец той матрицы, где наименьшее минимальное, обнулить, а столбец матрицы с большим минимальным рассортировать по убыванию. При выводе матриц выделить цветом тот столбец, где произошло изменение. Паскаль изучаю недавно,по этому появились проблемы при решении данной задачи .Буду очень благодарен если напишите весь код,или хотя бы процедуру по определению минимального эллемента(хотя свои наработки есть но они очень кривые ).Заранее благодарен. 0