Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Nikitos_$mile:)
19 / 18 / 17
Регистрация: 12.11.2011
Сообщений: 48
1

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

10.12.2011, 22:47. Просмотров 1023. Ответов 1
Метки нет (Все метки)

Составить программу, которая заполняет массив a[1..10] случайными числами в диапазоне от 0 до 10, затем первый элемент меняет местами с максимальным элементом.
вот моя прога:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var a:array[1..10]of integer;
i,z,max,k:integer;
begin
  for i:=1 to 10 do
                begin
                a[i]:=random(10);
                write(a[i],' ');
                end;
 writeln;
 max:=a[1];
 for i:=1 to 10 do
 if a[i]>max then
             begin
             max:=a[i];
             k:=i;
             end;
 z:=max;
 max:=a[1];
 a[1]:=z;
 for i:=1 to 10 do
                write(a[i],' ');
  writeln;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2011, 22:47
Ответы с готовыми решениями:

Поменять местами первый минимальный элемент с первым элементом
Написать программу с использованием процедур. Поменять местами последний...

Поменять местами в каждом столбце матрицы первый элемент с первым максимальным
Задан двумерный массив целых чисел размером n*m. Поменять местами в каждом...

Поменять местами третий элемент массива с последним максимальным
Необходимо составить программу с использованием рекурсии в соответствии со...

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

Поменять местами первый 0 и минимальный элемент массива
Здравствуйте. Задали задачку по массивам с подпрограммами, попробовал сделать...

1
GoldenBoy
Goldeeeeeeen !
242 / 234 / 186
Регистрация: 15.10.2011
Сообщений: 457
11.12.2011, 01:57 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
var a:array[1..10]of integer;
i,z,max,k:integer;
begin
  for i:=1 to 10 do
                begin
                a[i]:=random(10);
                write(a[i],' ');
                end;
 writeln;
 max:=a[1];
 for i:=1 to 10 do
 if a[i]>max then
             begin
             max:=a[i];
             k:=i;
             end;
z:=a[1];
 a[k]:=a[1];
a[1]:=max;;
 
 for i:=1 to 10 do
                write(a[i],' ');
  writeln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.12.2011, 01:57

Поменять местами максимальный и первый элемент массива
Написать процедуру которая в заданом одномерном массиве меняет местами...

Найти наибольший элемент массива и поменять его местами с первым элементом
Дан массив X(N). Найти наибольший элемент и поменять его местами с первым...

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


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

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

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