Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 01.10.2015
Сообщений: 6
1

Найти минимальное число и поменять его с элементом массива, номер которого задан

01.10.2015, 16:44. Показов 1373. Ответов 4
Метки нет (Все метки)

Найти минимальное число и поменять его с элементом массива, номер которого задан.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.10.2015, 16:44
Ответы с готовыми решениями:

Найти минимальное число и поменять его местами с последующим элементом массива
В задаче предполагается, что задан одномерный массив с произвольным именем из N элементов....

Найти максимальное число и поменять его со вторым элементом массива
Найти максимальное число и поменять его со вторым элементом массива.

Найти максимальное число и поменять его местами с последующим элементом массива
Найти максимальное число и поменять его местами с последующим элементом массива.

Найти максимальное число и поменять его местами с последним элементом массива
Найти максимальное число и поменять его местами с последним элементом массива.

4
13 / 13 / 18
Регистрация: 08.01.2015
Сообщений: 53
01.10.2015, 17:15 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  a: array[1..1000] of integer;
  i, min, b, j, x: integer;
 
begin
  //ввод данных
  writeln('введите размер массива');
  readln(b);
  for i := 1 to b do 
    readln(a[i]);
  writeln('введите элемент массива');
  readln(j);
  min := a[1];
  for i := 2 to b do 
    if a[i] < min then min := i;
  x := a[j];
  a[j] := a[min];
  a[min] := x;
  for i := 1 to b do
    write(a[i], ' ');
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30914 / 20228 / 7884
Регистрация: 22.10.2011
Сообщений: 35,107
Записей в блоге: 6
01.10.2015, 17:19 3
vovachuk, неправильно.

Min у тебя - не индекс минимального элемента, а сам минимальный, по крайней мере, в самом начале это подразумевалось (13-я строка). И часть 15-ой тоже. А во второй части ее уже написан откровенный бред.
0
54 / 45 / 97
Регистрация: 17.08.2014
Сообщений: 157
01.10.2015, 17:40 4
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
program ex;
const n = 10;
var a:array[1..n]of integer;
i,x,number,min,t:integer;
 
begin
write('Массив: ');
for i:=1 to n do
  begin 
  a[i]:=random(101)-50;
  write(a[i]:4);
  end;
writeln();
 
repeat
write('Введите номер элемента массива с которым поменяем минимальное: ');
readln(x);
if (x<1) or (x>n)then
writeln('Такого номера не существует, вы вышли за границы диапазона');
until (x>=1)and(x<=n);
 
min:=a[1];
number:=1;
for i:=1 to n do
 if a[i]<min then
 begin
 min:=a[i];
 number:=i;
 end;
t:=a[x];
a[x]:=a[number];
a[number]:=t;
 
write('Результат: ');
for i:=1 to n do
  write(a[i]:4);
writeln();
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30914 / 20228 / 7884
Регистрация: 22.10.2011
Сообщений: 35,107
Записей в блоге: 6
01.10.2015, 17:46 5
Обязательно лишние переменные использовать?
Pascal
1
2
3
4
5
6
7
number:=1;
for i:=2 to n do
 if a[i]<a[number] then number:=i;
 
t:=a[x];
a[x]:=a[number];
a[number]:=t;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.10.2015, 17:46

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Поменять местами предпоследний элемент массива с элементом, номер которого задан
Поменять местами предпоследний элемент массива с элементом, номер которого задан. Определить в...

Найти максимальное число и поменять его местами со вторым элементом массива
1.Найти максимальное число и поменять его местами со вторым элементом массива Помогите пожалуйста.

Найти максимальный элемент и поменять его с последним элементом массива
Задан двухмерный массив целых чисел A.Найти максимальный элемент и поменять его с последним...

Найти наименьший элемент и поменять его местами с последним элементом массива
а) В массиве из 10 элементов найти наименьший элемент и поменять его местами с последним элементом...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

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