Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/76: Рейтинг темы: голосов - 76, средняя оценка - 4.57
sweeney
0 / 0 / 0
Регистрация: 10.12.2008
Сообщений: 55
1

Упорядочить элементы массива по возрастанию

24.12.2008, 03:15. Просмотров 13763. Ответов 6
Метки нет (Все метки)

Так, ребята)) всем привет) есть тут мини легкие задачи. Нужны решения... они легкие, очень, я понимаю... вот на Паскале нужно. Поможете сделать?))
всем спасибо)

Найти максимальный элемент массива A и записать значение этого элемента в переменную v. Например, если А={0, -2, 7, 4, -1}, то v=7.
Входные данные. Целочисленный массив A[0..4].
Выходные данные. Целое число v.



Найти минимальный элемент массива A и записать индекс этого элемента в переменную i. Например, если А={0, -2, 7, 4, -1}, то i=1.
Входные данные. Целочисленный массив A[0..4].
Выходные данные. Целое число i.


Найти минимальный положительный элемент массива A и записать его значение в переменную v. Например, если А={0, -2, 7, 4, -1}, то v=4.
Входные данные. Целочисленный массив A[0..4].
Выходные данные. Целое число v.


Найти максимальный отрицательный элемент массива A и записать его значение в переменную v. Например, если А={0, -2, 7, 4, -1}, то v=-1.
Входные данные. Целочисленный массив A[0..4].
Выходные данные. Целое число v.


Найти сумму элементов массива A и записать ее значение в переменную s. Например, если А={0, -2, 7, 4, -1}, то s=8.
Входные данные. Целочисленный массив A[0..4].
Выходные данные. Целое число s.


Найти сумму положительных элементов массива A и записать ее значение в переменную s. Например, если А={0, -2, 7, 4, -1}, то s=11.
Входные данные. Целочисленный массив A[0..4].
Выходные данные. Целое число s.


Найти сумму отрицательных элементов массива A и записать ее значение в переменную s. Например, если А={0, -2, 7, 4, -1}, то s=-3.
Входные данные. Целочисленный массив A[0..4].
Выходные данные. Целое число s.


Найти сумму четных элементов массива A и записать ее значение в переменную s. Например, если А={0, -2, 7, 4, -1}, то s=2.
Входные данные. Целочисленный массив A[0..4].
Выходные данные. Целое число s.


Найти сумму нечетных элементов массива A и записать ее значение в переменную s. Например, если А={0, -2, 7, 4, -1}, то s=6.
Входные данные. Целочисленный массив A[0..4].
Выходные данные. Целое число s.


Найти сумму элементов массива A с нечетными индексами и записать ее значение в переменную s. Например, если А={0, -2, 7, 4, -1}, то s=2.
Входные данные. Целочисленный массив A[0..4].
Выходные данные. Целое число s.


Из элементов заданного целочисленного массива A сформировать целочисленный массив B. Упорядочить элементы массива B по возрастанию. Например, если А={0, -2, 7, 4, -1}, то B={-2, -1, 0, 4, 7}.
Входные данные. Целочисленный массив A[0.. 4 ].
Выходные данные. Целочисленный массив B[0..4].


Из элементов заданного целочисленного массива A сформировать целочисленный массив B. Упорядочить элементы массива B по убыванию. Например, если А={0, -2, 7, 4, -1}, то B={7, 4, 0, -1, -2}.
Входные данные. Целочисленный массив A[0.. 4 ].
Выходные данные. Целочисленный массив B[0.. 4 ].


Буду рад любой помощи)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2008, 03:15
Ответы с готовыми решениями:

Упорядочить элементы массива по возрастанию
1) Упорядочить элементы массива Х по возрастанию. 2) Ввести с клавиатуры...

Сортировка массива. Упорядочить нечетные элементы массива по возрастанию методом обмена
Упорядочить одномерный массив по возрастанию, методом обмена. (по возрастанию...

Упорядочить элементы массива по возрастанию модулей.
Составить алгоритм и программу, которая в одномерном массиве, состоящем из n...

Упорядочить элементы исходного массива по возрастанию
Задача такая: задаём одномерный массив Р с N элементами. Нужно упорядочить...

Упорядочить элементы массива по возрастанию модулей
В одномерном массиве, состоящем из n вещественных элементов, вычислить:...

6
Сёма
2 / 2 / 0
Регистрация: 21.12.2008
Сообщений: 11
24.12.2008, 03:57 2
Почему массивы начинаются с "0"?

Добавлено через 5 минут 1 секунду
Код
Program CeMka;
uses crt;
var a:array [1..5] of integer;
     max,i:integer;
begin
clrscr;
for i:=1 to 5 do
 begin
  write('Введите ',i,' элемент массива');
  readln(a[i]);
 end;
max:=a[1];
for i:=2 to 5 do
if a[i]>max then
 max:=a[i];
writeln('Максимальное значение элементов массива - ',max);
readkey;
end.
Добавлено через 1 минуту 32 секунды
Код
Program CeMka2;
uses crt;
var a:array [1..5] of integer;
     min,i:integer;
begin
clrscr;
for i:=1 to 5 do
 begin
  write('Введите ',i,' элемент массива');
  readln(a[i]);
 end;
min:=a[1];
for i:=2 to 5 do
if a[i]<min then
 min:=a[i];
writeln('Минимальное значение элементов массива - ',min);
readkey;
end.
Добавлено через 7 минут 16 секунд
Код
Program CeMka2;
uses crt;
var a:array [1..5] of integer;
     minp,i:integer;
begin
clrscr;
for i:=1 to 5 do
 begin
  write('Введите ',i,' элемент массива');
  readln(a[i]);
 end;
for i:=1 to 5 do
if a[i]>0 then
 minp:=a[i];
for i:=2 to 5 do
if (a[i]<minp and a[i]>0) then
 minp:=a[i];
writeln('Минимальный положительный элемент массива - ',minp);
readkey;
end.
Добавлено через 3 минуты 16 секунд
Код
Program CeMka2;
uses crt;
var a:array [1..5] of integer;
     maxo,i:integer;
begin
clrscr;
for i:=1 to 5 do
 begin
  write('Введите ',i,' элемент массива');
  readln(a[i]);
 end;
for i:=1 to 5 do
if a[i]<0 then
 maxo:=a[i];
for i:=2 to 5 do
if (a[i]>maxo and a[i]<0) then
 maxo:=a[i];
writeln('Максимальный отрицательный элемент массива - ',maxo);
readkey;
end.
Добавлено через 4 минуты 2 секунды
Код
Program CeMka2;
uses crt;
var a:array [1..5] of integer;
     s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 5 do
 begin
  write('Введите ',i,' элемент массива');
  readln(a[i]);
 end;
for i:=1 to 5 do
 s:=s+a[i];
writeln('Сумма всех элементов массива - ',s);
readkey;
end.
Добавлено через 7 минут 20 секунд
Код
Program CeMka2;
uses crt;
var a:array [1..5] of integer;
     s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 5 do
 begin
  write('Введите ',i,' элемент массива');
  readln(a[i]);
 end;
for i:=1 to 5 do
if A[i]>0 then
 s:=s+a[i];
writeln('Сумма положительных элементов массива - ',s);
readkey;
end.
Добавлено через 1 минуту 28 секунд
Код
Program CeMka2;
uses crt;
var a:array [1..5] of integer;
     s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 5 do
 begin
  write('Введите ',i,' элемент массива');
  readln(a[i]);
 end;
for i:=1 to 5 do
if A[i]<0 then
 s:=s+a[i];
writeln('Сумма отрицательных элементов массива - ',s);
readkey;
end.
Добавлено через 1 минуту 55 секунд
Код
Program CeMka2;
uses crt;
var a:array [1..5] of integer;
     s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 5 do
 begin
  write('Введите ',i,' элемент массива');
  readln(a[i]);
 end;
for i:=1 to 5 do
if (A[i] mod 2 = 0) then
 s:=s+a[i];
writeln('Сумма чётных элементов массива - ',s);
readkey;
end.
Добавлено через 1 минуту 13 секунд
Код
Program CeMka2;
uses crt;
var a:array [1..5] of integer;
     s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 5 do
 begin
  write('Введите ',i,' элемент массива');
  readln(a[i]);
 end;
for i:=1 to 5 do
if (A[i] mod 2 = 5) then
 s:=s+a[i];
writeln('Сумма не чётных элементов массива - ',s);
readkey;
end.
Добавлено через 2 минуты 16 секунд
Код
Program CeMka2;
uses crt;
var a:array [1..5] of integer;
     s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 5 do
 begin
  write('Введите ',i,' элемент массива');
  readln(a[i]);
 end;
for i:=1 to 5 do
if (i mod 2 = 5) then
 s:=s+a[i];
writeln('Сумма элементов массива с не чётным  индексом - ',s);
readkey;
end.
1
lexus_ilia
3050 / 710 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
24.12.2008, 09:20 3
Цитата Сообщение от Сёма Посмотреть сообщение
Почему массивы начинаются с "0"?
Потому-что так определено в задании никто не запрещает начинать массивы с "0", просто классически привыкли начинать с "1"...
0
sweeney
0 / 0 / 0
Регистрация: 10.12.2008
Сообщений: 55
24.12.2008, 21:49  [ТС] 4
мм Спасибо большое, Сёма) помогли))
но вот еще 2 последние задачи нужно сделать, вроде задача не сложная...

Из элементов заданного целочисленного массива A сформировать целочисленный массив B. Упорядочить элементы массива B по возрастанию. Например, если А={0, -2, 7, 4, -1}, то B={-2, -1, 0, 4, 7}.
Входные данные. Целочисленный массив A[0.. 4 ].
Выходные данные. Целочисленный массив B[0..4].


Из элементов заданного целочисленного массива A сформировать целочисленный массив B. Упорядочить элементы массива B по убыванию. Например, если А={0, -2, 7, 4, -1}, то B={7, 4, 0, -1, -2}.
Входные данные. Целочисленный массив A[0.. 4 ].
Выходные данные. Целочисленный массив B[0.. 4 ].
0
Сёма
2 / 2 / 0
Регистрация: 21.12.2008
Сообщений: 11
24.12.2008, 22:19 5
100% прогу можно сделать поумнее...
Код
Program CeMka;
uses crt;
var a:array [1..5] of integer;
     b,i,h:integer;
begin
clrscr;
for i:=1 to 5 do
 begin
  write('Введите ',i,' элемент массива');
  readln(a[i]);
 end;
for h:=1 to 25 do
for i:=1 to 4 do
if (A[i]>A[i+1]) then
 begin
  b:=A[i+1];
  A[i+1]:=A[i];
  A[i]:=b;
 end;
write('Упорядочный массив - ');
for i:=1 to 5 do
write(a[i],' ');
readkey;
end.
Добавлено через 2 минуты 5 секунд
Код
Program CeMka;
uses crt;
var a:array [1..5] of integer;
     b,i,h:integer;
begin
clrscr;
for i:=1 to 5 do
 begin
  write('Введите ',i,' элемент массива');
  readln(a[i]);
 end;
for h:=1 to 25 do
for i:=1 to 4 do
if (A[i]<A[i+1]) then
 begin
  b:=A[i+1];
  A[i+1]:=A[i];
  A[i]:=b;
 end;
write('Упорядочный массив - ');
for i:=1 to 5 do
write(a[i],' ');
readkey;
end.
1
sweeney
0 / 0 / 0
Регистрация: 10.12.2008
Сообщений: 55
24.12.2008, 23:34  [ТС] 6
ахах зачем поумнее?) но все-равно спасибо больше_)))
ОГРОМНОЕ СПАСИБО__))
0
Insane300
3 / 3 / 0
Регистрация: 10.10.2009
Сообщений: 16
08.11.2009, 23:19 7
Упорядочить целочисленный массив А[1..n] по неубыванию,
используя следующий метод: для i от 2 до п каждый элемент А[i] вставляется на свое место в упорядоченной ранее части массива А[1],…, A[i — 1]. При этом, естественно, если это необ¬ходимо, происходит сдвиг элементов массива.

помоги плииииз(((
0
08.11.2009, 23:19
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.11.2009, 23:19

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

Заменить все элементы массива их квадратами и упорядочить их по возрастанию.
Заменить все элементы массива их квадрат и упорядочить их по возрастанию....

Упорядочить элементы одномерного массива, расположенные до минимального элемента по возрастанию
Заранее благодарю уважаемых гуру.


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

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

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