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

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

14.01.2010, 02:44. Просмотров 1824. Ответов 2
Метки нет (Все метки)

Составить алгоритм и программу, которая в одномерном массиве, состоящем из n вещественных элементов, вычисляет:
а) Количество элементов массива, равных нулю.
б) Сумму элементов массива, расположенных после минимального элемента.
в) Упорядочить элементы массива по возрастанию модулей.
1
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.01.2010, 02:44
Ответы с готовыми решениями:

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

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

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

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

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

2
WolfCF
3292 / 1354 / 108
Регистрация: 28.04.2009
Сообщений: 4,823
14.01.2010, 05:01 2
Лучший ответ Сообщение было отмечено Le4o как решение

Решение

а
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var a:array[1..100] of real;
i,n,k:integer;
begin
clrscr;
write('vvedite razmer massiva:');
 readln(n);
randomize;
for i:=1 to n do
begin
a[i]:=random(2);
write(' ',a[i]:5:1);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]=0 then inc(k);
textcolor(lightgreen);
writeln('kol-vo: ',k);
readkey
End.
1
Puporev
Модератор
55472 / 42576 / 29425
Регистрация: 18.05.2008
Сообщений: 100,722
14.01.2010, 06:59 3
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
40
41
42
43
44
45
46
47
48
uses crt;
const max=100;
var a:array[1..max] of real;
    n,i,j,imn,k:integer;
    s,x:real;
begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Введите ',n,' действительных чисел:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i]:5:1);
writeln;
writeln;
imn:=1;k:=0;
for i:=1 to n do
 begin
  if a[i]<a[imn] then imn:=i;{находим номер минимального}
  if a[i]=0 then k:=k+1;{находим количество нулей}
 end;
writeln('Количество нулевых элементов=',k);
writeln('Мнимальный элемент=',a[imn]:0:1,'  его индекс=',imn);
s:=0;
for i:=imn+1 to n do
s:=s+a[i];{сумма после минимального}
writeln('Сумма после минимального=',s:0:1);
for i:=1 to n-1 do{сортировка по возрастанию обменом}
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Массив, отсортированный по возрастанию:');
for i:=1 to n do
write(a[i]:5:1);
readln
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.01.2010, 06:59

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

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

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


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

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

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