Вычислить количество положительных элементов массива

24.12.2014, 21:37. Показов 583. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Ребята, всем привет) помогите пожалуйста написать программу:
В одномерном массиве, состоящем из n целых элементов, вычислить:
1) количество положительных элементов массива;
2) сумму элементов массива, расположенных после последнего элемента,
равного нулю.
Преобразовать массив таким образом, чтобы сначала располагались все
элементы, целая часть которых не превышает 1, а потом — все остальные. Упорядочить каждую часть массива по возрастанию, используя алгоритм сортировки методом прямого выбора.
Программа как-бы написана, а вот с сортировкой проблема:

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
49
50
51
52
53
54
55
56
57
58
59
Program massiv; 
 
uses crt; 
const 
M=100; 
var 
a : array[1..M] of real; 
k, n, x, i, j : integer; 
sum, dump : real; 
 
begin 
sum:=0; 
k:=0; 
writeln('Введите размерность массива: '); 
readln(n); 
 
for i:=1 to n do 
begin 
writeln('Введите ',i,' элемент массива:'); 
readln(a[i]); 
end; 
 
for i:=1 to n do 
begin 
for j:=i+1 to n do 
if ((a[j]>-1) and (a[j]<1)) then 
begin 
dump:=a[j]; 
a[j]:=a[i]; 
 
a[i]:=dump; 
end; 
end; 
 
for i:=1 to n do 
writeln(i,'. ',a[i]:1:5); 
 
for i:=1 to n do 
begin 
if a[i]>0 then k:=k+1; 
end; 
writeln('Количество положительных элементов: ',k); 
 
for i:=n downto 1 do 
begin 
sum:=sum+a[i]; 
if (a[i]=0) then break; 
end; 
writeln('Сумма  = ',sum:1:3); 
 
readln; 
begin
for i:=1 to n-1 do
 
a[k] :=a[i]; {перестановка элементов}
a[i] :=x;
end;
 
end.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

24.12.2014, 21:37

Ответы с готовыми решениями:

Вычислить количество положительных и количество отрицательных элементов массива
Помогите ,пожайлуста , решить задачку. Дан целочисленный массив размера K. Вычислить количество положительных и количество отрицательных...

Вычислить сумму и количество положительных элементов массива х
Помогите задачу !!! Массив х 10. Вычеслите сумму и кол-во положительных элементов массива х. х - действительные числа.

Вычислить сумму положительных элементов массива и их количество
в одномерном массиве состоящем из 25 вещественных элементов вычислить:сумму положительных элементов и их кол

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

24.12.2014, 21:37

Помогаю со студенческими работами здесь

Вычислить сумму и количество положительных элементов массива
Вычислить сумму и количество положительных элементов массива X(n), где 1<=n<=100 Буду очень признателен

Вычислить количество и сумму положительных элементов трехмерного массива
Ребята, помогите пожалуйста! В универе задали задание, а я не могу понять как работать с подпрограммами пока еще, так что надеюсь на вашу...

Вычислить сумму и количество положительных элементов массива, расположенных в четных строках
2.Вычислить сумму и количество положительных эле-ментов массива, расположенных в четных строках

Посчитать количество отрицательных и количество положительных элементов массива
Дан массив 5x5, заполнен случайными числами от -10 до 10. Посчитать кол-во отрицательных и кол-во положительных элементов массива. Вывести...

Определить количество положительных элементов массива. Элементы массива задаются генератором случайных чисел(р
Определить количество положительных элементов массива. Элементы массива задаются генератором случайных чисел(размерность массивов...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

Наверх