В одномерном целочисленном массиве поменяйте местами последний наименьший и первый наибольший элементы

@gvgtffb · Регистрация: 21.03.2017

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

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

@ZX Spectrum-128 · 25.04.2017, 20:51

В одномерном массиве поменяйте местами последний наименьший и первый наибольший элементы

@VladimirD · 26.04.2017, 04:41

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const n=20;
var a:array [1..n] of integer;
    i:integer;
    min,max,mini,maxi,temp:integer;
begin
  randomize;
  for i:=1 to n do begin a[i]:=random(100);write (a[i]:3);end;  
  writeln;
  
  min:=a[1];mini:=1;max:=a[1];maxi:=1;
  for i:=2 to n do begin
    if min>=a[i] then begin min:=a[i]; mini:=i; end;
    if max<a[i] then begin max:=a[i]; maxi:=i; end;
  end;
  
  writeln ('min[',mini,']=',min,' max[',maxi,']=',max); 
  temp:=a[mini]; a[mini]:=a[maxi]; a[maxi]:=temp;
  
  for i:=1 to n do write (a[i]:3);
end.

@bormant · 26.04.2017, 07:50

Можно немного упростить логику:

Pascal
12
13
    if a[mini]>=a[i] then mini:=i;
    if a[maxi]<a[i]  then maxi:=i;

@gvgtffb · 27.04.2017, 17:54 **[ТС]**

что то он не то выводит

Добавлено через 39 секунд
и индексы в разброс и числа не соответствуют условию

@VladimirD · 27.04.2017, 18:15

вводи с клавиатуры

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
const n=20;
var a:array [1..n] of integer;
    i:integer;
    min,max,mini,maxi,temp:integer;
begin
  randomize;
  for i:=1 to n do begin write ('введите a[',i,'] ');readln(a[i]);end;  
  writeln;
  
  writeln('Исходный массив');
  for i:=1 to n do write (a[i],' ');
  
  min:=a[1];mini:=1;max:=a[1];maxi:=1;
  for i:=2 to n do begin
    if min>=a[i] then begin min:=a[i]; mini:=i; end;
    if max<a[i] then begin max:=a[i]; maxi:=i; end;
  end;
  
  temp:=a[mini]; a[mini]:=a[maxi]; a[maxi]:=temp;  
   
  writeln;
  writeln('Измененный массив');
  for i:=1 to n do write (a[i],' ');
  
  writeln; 
  writeln ('min[',mini,']=',min,' max[',maxi,']=',max); 
 
end.

Добавлено через 5 минут
Студенты хоть немного читайте книги

@Inga007 · 29.04.2017, 00:42

К сожалению, Ваша программа не работает. Видимо, книг перечитали.

@Cyborg Drone · 29.04.2017, 02:12

Inga007, Ваше утверждение неверное и голословное. Программа прекрасно работает:

В одномерном целочисленном массиве поменяйте местами последний наименьший и первый наибольший элементы

Какие предпосылки позволили Вам сделать вывод, что программа не работает?

И по какой причине Вы посчитали допустимым язвительный выпад в сторону VladimirD насчёт количества прочтённых книг?

@VladimirD · 29.04.2017, 10:34

Inga007, Извините, забыл добавить вначале программы строчку кода

Pascal
1
program prog;

@Joy · 29.04.2017, 15:54

Программа, немного не соответствует условию - нужно вывести только индексы, а выводятся индексы и значения элементов, собственно эти значения и искать не надо. Об этом выше bormant говорил

@VladimirD · 29.04.2017, 16:20

теперь все довольны?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program prog;
var a:array of integer;
    i,n:integer;
    mini,maxi,temp:integer;
begin
  write('введите размерность массива:');readln(n);
  SetLength(a, n);
  for i:=1 to n do begin write ('введите a[',i,'] ');readln(a[i]);end;  
  writeln;
  writeln('Исходный массив');
  for i:=1 to n do write (a[i],' ');  
  mini:=1;maxi:=1;
  for i:=2 to n do begin
    if a[mini]>=a[i] then mini:=i;
    if a[maxi]<a[i] then maxi:=i;
  end; 
  temp:=a[mini]; a[mini]:=a[maxi]; a[maxi]:=temp;    
  writeln;
  writeln('Измененный массив');
  for i:=1 to n do write (a[i],' ');
  writeln; 
  writeln ('индекс min=',mini,' индекс max=',maxi); 
end.

@Joy · 29.04.2017, 17:23

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

теперь все довольны?

нет - ошибка. в динамических массивах индексация с 0 до n-1 идет, а у вас с 1 до n - залазите не в свою область памяти

@VladimirD · 29.04.2017, 17:27

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program prog;
var a:array of integer;
    i,n:integer;
    mini,maxi,temp:integer;
begin
  write('введите размерность массива:');readln(n);
  SetLength(a, n);
  for i:=0 to n-1 do begin write ('введите a[',i,'] ');readln(a[i]);end;  
  writeln;
  writeln('Исходный массив');
  for i:=0 to n-1 do write (a[i],' ');  
  mini:=0;maxi:=0;
  for i:=1 to n-1 do begin
    if a[mini]>=a[i] then mini:=i;
    if a[maxi]<a[i] then maxi:=i;
  end; 
  temp:=a[mini]; a[mini]:=a[maxi]; a[maxi]:=temp;    
  writeln;
  writeln('Измененный массив');
  for i:=0 to n-1 do write (a[i],' ');
  writeln; 
  writeln ('индекс min=',mini,' индекс max=',maxi); 
end.

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@gvgtffb 0 / 0 / 0 Регистрация: 21.03.2017 Сообщений: 69

	В одномерном целочисленном массиве поменяйте местами последний наименьший и первый наибольший элементы 25.04.2017, 19:53. Показов 2202. Ответов 12 Метки нет (Все метки) В одномерном целочисленном массиве поменяйте местами последний наименьший и первый наибольший элементы. Выведите исходный и изменённый массив, а также индексы элементов, которые менялись местами (исходный массив должен формироваться с помощью ввода их с клавиатуры). 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	25.04.2017, 20:51
	В одномерном массиве поменяйте местами последний наименьший и первый наибольший элементы 0

@gvgtffb 0 / 0 / 0 Регистрация: 21.03.2017 Сообщений: 69
	27.04.2017, 17:54 [ТС]
	что то он не то выводит Добавлено через 39 секунд и индексы в разброс и числа не соответствуют условию 0

@Inga007 0 / 0 / 0 Регистрация: 29.04.2017 Сообщений: 1
	29.04.2017, 00:42
	К сожалению, Ваша программа не работает. Видимо, книг перечитали. 0

@Cyborg Drone Модератор 10451 / 5746 / 3409 Регистрация: 17.08.2012 Сообщений: 17,483
	29.04.2017, 02:12
	Inga007, Ваше утверждение неверное и голословное. Программа прекрасно работает: Какие предпосылки позволили Вам сделать вывод, что программа не работает? И по какой причине Вы посчитали допустимым язвительный выпад в сторону VladimirD насчёт количества прочтённых книг? 0

@Joy 2388 / 1300 / 1492 Регистрация: 29.08.2014 Сообщений: 4,665
	29.04.2017, 15:54
	Программа, немного не соответствует условию - нужно вывести только индексы, а выводятся индексы и значения элементов, собственно эти значения и искать не надо. Об этом выше bormant говорил 0

Опции темы