прога с массивами

@John_Pa9JIbHuK · Регистрация: 31.03.2009

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

Помогите написать прогу
В двумерном массиве поменять местами строки с наибольшими м наименьшими элементами

@yanyk1n · 05.04.2009, 10:48

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
program mm;
uses crt;
const row=5; col=4;
var m:array[1..row,1..col]of integer;
buf,min,max,min_n,max_n,i,j:integer;
 
begin
 clrscr;
 randomize;
 for i:=1 to row do
 for j:=1 to col do
 m[i,j]:=random(16);
 
 writeln('Massiv do:');
 for i:=1 to row do
 begin
  for j:=1 to col do write(m[i,j]:2,' ');
  writeln;
 end;
 
 min_n:=1;
 min:=m[1,1];
 for i:=1 to row do
 for j:=1 to col do
  if m[i,j]<=min then begin
  min_n:=i;
  min:=m[i,j];
  end;
 
 max_n:=1;
 max:=m[1,1];
 for i:=1 to row do
 for j:=1 to col do
  if m[i,j]>=max then begin
  max_n:=i;
  max:=m[i,j];
  end;
 
 if max_n<>min_n then
 begin
  for i:=1 to col do
  begin
   buf:=m[max_n,i];
   m[max_n,i]:=m[min_n,i];
   m[min_n,i]:=buf;
  end;
 end;
 
 writeln('Massiv posle:');
 for i:=1 to row do
 begin
  for j:=1 to col do write(m[i,j]:2,' ');
  writeln;
 end;
 
 readln;
end.

@stels · 05.04.2009, 10:59

немного забольшая

@Puporev · 05.04.2009, 11:38

Можно объединить здесь.

Pascal
1
2
3
4
5
6
7
8
9
10
for i:=1 to row do
 for j:=1 to col do
 m[i,j]:=random(16);
 
 writeln('Massiv do:');
 for i:=1 to row do
 begin
  for j:=1 to col do write(m[i,j]:2,' ');
  writeln;
 end;

И здесь.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
min_n:=1;
 min:=m[1,1];
 for i:=1 to row do
 for j:=1 to col do
  if m[i,j]<=min then begin
  min_n:=i;
  min:=m[i,j];
  end;
 
 max_n:=1;
 max:=m[1,1];
 for i:=1 to row do
 for j:=1 to col do
  if m[i,j]>=max then begin
  max_n:=i;
  max:=m[i,j];
  end;

@yanyk1n · 05.04.2009, 11:38

Писал я много только для удобства и наглядности программы)

@John_Pa9JIbHuK · 05.04.2009, 14:02 **[ТС]**

чето она неправельно работает

@yanyk1n · 05.04.2009, 14:13

ну почему же?
если мин. или макс. элементов несколько, то за максимум берётся найденный позже всех

а если нужно организовать ввод с клавиатуры, то помести это:

Pascal
1
2
3
4
5
6
for i:=1 to row do
for j:=1 to col do
begin
 write('m[',i,',',j,']: ');
 readln(m[i,j]);
end;

вместо:

Pascal
1
2
3
for i:=1 to row do
 for j:=1 to col do
 m[i,j]:=random(16);

@John_Pa9JIbHuK · 05.04.2009, 21:03 **[ТС]**

просто меняются 2 строки первая максимальня последняя минимальная а остальные??они в случайном порядке остаются просто так прога работает может ты ее нетестил

@Puporev · 05.04.2009, 21:21

просто меняются 2 строки первая максимальня последняя минимальная а остальные?

А тебе сколько их менять-то надо? Написано же в условии, поменять строку с минимальным со строкой с максимальным.

@John_Pa9JIbHuK · 05.04.2009, 21:30 **[ТС]**

я это так понял например массив

прога делает так

@Puporev · 05.04.2009, 21:32

Неправильно понял, точнее ни фига не понял.
Например матрица
1 1 1 5
2 2 2 2
0 1 1 1
макс=5 мин=0
будет
0 1 1 1
2 2 2 2
1 1 1 5

@John_Pa9JIbHuK · 05.04.2009, 21:41 **[ТС]**

ясн все понял спс

@John_Pa9JIbHuK · 18.12.2010, 11:32 **[ТС]**

Как интересно просмотреть 100 лет назад созданные темы, не могу поверить что это писал я

Новые блоги и статьи Все статьи Все блоги /
ПЛИС zxcha1ka_ 27.01.2026 AHDL Разработать программы для синтеза следующих устройств: 1. Параллельного регистра 4-х разрядного с синхронной загрузкой и асинхронным сбросом (обнулением); Пoмoгитe пoжaлyйстa	Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567

	прога с массивами 05.04.2009, 10:14. Показов 1165. Ответов 12 Метки нет (Все метки) Помогите написать прогу В двумерном массиве поменять местами строки с наибольшими м наименьшими элементами 0

@stels 2 / 1 / 1 Регистрация: 02.04.2009 Сообщений: 28
	05.04.2009, 10:59
	немного забольшая 0

@yanyk1n 4342 / 1474 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	05.04.2009, 11:38
	Писал я много только для удобства и наглядности программы) 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	05.04.2009, 14:02 [ТС]
	чето она неправельно работает 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	05.04.2009, 21:03 [ТС]
	просто меняются 2 строки первая максимальня последняя минимальная а остальные??они в случайном порядке остаются просто так прога работает может ты ее нетестил 0

@Puporev Почетный модератор 64314 / 47610 / 32744 Регистрация: 18.05.2008 Сообщений: 115,168
	05.04.2009, 21:32
	Неправильно понял, точнее ни фига не понял. Например матрица 1 1 1 5 2 2 2 2 0 1 1 1 макс=5 мин=0 будет 0 1 1 1 2 2 2 2 1 1 1 5 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	05.04.2009, 21:41 [ТС]
	ясн все понял спс 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	18.12.2010, 11:32 [ТС]
	Как интересно просмотреть 100 лет назад созданные темы, не могу поверить что это писал я 0