Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 16, средняя оценка - 4.81
Sash0k13121995
0 / 0 / 2
Регистрация: 11.04.2012
Сообщений: 29
#1

Поменять местами минимальный элемент массива и первый элемент массива - Turbo Pascal

16.04.2012, 19:05. Просмотров 2350. Ответов 2
Метки нет (Все метки)

Здравствуйте! Помогите решить задачу. Заранее спасибо!

Создать массив целых чисел. Поменять местами минимальный элемент массива и первый элемент массива, максимальный элемент массива и последний элемент массива.
http://www.cyberforum.ru/turbo-pascal/thread2241219.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.04.2012, 19:05
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Поменять местами минимальный элемент массива и первый элемент массива (Turbo Pascal):

Найти максимальный элемент и минимальный элемент массива и поменять их местами.
2)В массиве М(45) лежат целые числа. Найти максимальный элемент (первый) и...

Найти минимальный элемент одномерного массива и поменять местами пятый элемент с минимальным
Здравствуйте. Очень нужна ваша помощь в решении следующих задач: 3. Найти...

Поменять местами первый элемент массива с максимальным
Требуется поменять местами первый элемент массива с максимальным.

Поменять местами первый и максимальный элемент массива
Здравствуйте, давно знала о вашем сайте, все отзываются положительно, и вот...

Поменять местами второй и минимальный элемент массива
поменять местами второй и минимальный элемент массива program ex1;...

2
tm2012
108 / 108 / 100
Регистрация: 04.03.2012
Сообщений: 146
17.04.2012, 08:56 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
var a:array[1..1000] of integer;
i,n,min,max,mn,mx:integer;
begin
   randomize;
   clrscr;
   writeln('Kol-vo elementov: ');
   readln(n);
   writeln('Massiv:');
   a[1]:=random(100);
   write(a[1]:4);
   min:=a[1]; mn:=1;
   max:=a[1]; mx:=1;
   for i:=2 to n do
      begin
         a[i]:=random(100);
         write(a[i]:4);
         if a[i]<min then begin min:=a[i]; mn:=i; end;
         if a[i]>max then begin max:=a[i]; mx:=i; end;
      end;
   a[mn]:=a[1];
   a[1]:=min;
   a[mx]:=a[n];
   a[n]:=max;
   writeln(#13#10,'Novyi massiv:');
   for i:=1 to n do
      write(a[i]:4);
   readkey;
end.
2
Sash0k13121995
0 / 0 / 2
Регистрация: 11.04.2012
Сообщений: 29
17.04.2012, 13:59  [ТС] #3
Большое спасибо! +1
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.04.2012, 13:59
Привет! Вот еще темы с решениями:

Поменять местами второй и минимальный элемент массива
1 Поменять местами второй и минимальный элемент массива. 2 К четным...

Поменять местами максимальный и первый нулевой элемент массива
1) Дан массив из n целых чисел. Поменять местами максимальный и первый нулевой...

Найти максимальный и минимальный элемент массива и поменять их местами
Найти максимальный и минимальный элемент массива Х и поменять их в массиве...

Поменять местами с первым минимальный элемент каждого столбца массива
все тот же зачет...- вторая задачка Задана матрица С(5,5). Поменять местами с...


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

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

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