2 / 2 / 2
Регистрация: 02.11.2010
Сообщений: 48
1

Дан массив целых чисел a1,...,an. Найти минимальный и максимальный элементы массива и поменять их местами.

08.11.2010, 16:02. Показов 6373. Ответов 3
Метки нет (Все метки)

Дан массив целых чисел a1,...,an. Найти минимальный и
максимальный элементы массива и поменять их местами.

В чем у меня ошибка?

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
program ggg;
uses crt;
const n=10;
var i,max,min,k:integer;
a:array[1..n] of integer;
begin
clrscr;
randomize;
for i:=1 to n do begin
a[i]:=random(20);
write(a[i],' ');
end;
max:=a[i];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('max=',max);
min:=a[i];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('min=',min);
for i:=1 to n do begin
k:=max;
max:=min;
min:=k;
end;
for i:=1 to n do begin
write(a[i],' ');
end;
readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.11.2010, 16:02
Ответы с готовыми решениями:

Дан массив размера N. Поменять местами его минимальный и максимальный элементы
1.Дан массив размера N. Поменять местами его минимальный и максимальный элементы. 2.Дан...

Одномерные массивы. Дан массив размерностью 10. Поменять местами максимальный и минимальный элементы
Помогите задачку. Дан массив размерностью 10. Поменять местами максимальный и минимальный...

Найти максимальный и минимальный элементы массива и поменять их местами
Из элементов массива m сформировать массив n того же размера по правилу: если номер и элемента...

Дан Массив размера N. Поменять местами его минимальный и Максимальный элементы.
Помогите пожалуйста:)

3
Платежеспособный зверь
8792 / 4219 / 1617
Регистрация: 28.10.2009
Сообщений: 11,355
08.11.2010, 16:06 2
max:=a[i]
надо
Pascal
1
max:=a[1]
и с мин так же
строки 13 и 17
Pascal
1
2
3
4
5
for i:=1 to n do begin
k:=max;
max:=min;
min:=k;
end;
цикл здесь не нужен
0
2 / 2 / 2
Регистрация: 02.11.2010
Сообщений: 48
08.11.2010, 17:46  [ТС] 3
почему min и max не меняются местами?

Добавлено через 46 минут
????????????????
0
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
08.11.2010, 17:54 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
39
program ggg;
uses
 crt;
const
 n=10;
var
 i,imax,imin,k:integer;
 a:array[1..n] of integer;
begin
clrscr;
randomize;
imax:=1;
imin:=1;
for i:=1 to n do
begin
 a[i]:=random(20);
 write(a[i],' ');
  if a[imax]<a[i] then
  begin
   imax:=i;
  end;
  if a[imin]>a[i] then
  begin
   imin:=i;
  end;
end;
writeln;
writeln('max=',a[imax]);
writeln('min=',a[imin]);
k:=a[imax];
a[imax]:=a[imin];
a[imin]:=k;
writeln;
for i:=1 to n do
begin
 write(a[i],' ');
end;
readln;
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.11.2010, 17:54
Помогаю со студенческими работами здесь

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

Матрицы. Найти максимальный и минимальный элементы данного массива и поменять их местами
В TurboPascal 3)Дан двумерный массив размерностью N*M(N и M вводятся с клавиатуры).Найти...

Дан массив целых чисел. Найти максимальный и минимальный элемент, вывести на экран
Дан массив целых чисел. Найти максимальный и минимальный элемент, вывести на экран.

В матрице найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элементы
В матрице размером n на m (1&lt;n, m&lt;10) (ввод n, m и матрицы с клавиатуры) найти минимальный и...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru