Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
parvadov
0 / 0 / 0
Регистрация: 03.12.2012
Сообщений: 11
1

Найти суму положительных элементов в одномерном масиве

03.12.2012, 03:17. Просмотров 887. Ответов 2
Метки нет (Все метки)

найти суму положительных элементов в одномерном масиве А. Перенести из масива А в масив В четные элементы, а в масив С нечетные, и отсортировать масивы В и С по убыванию
P.S. масив брать любой размерности, 7-12 элементов)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.12.2012, 03:17
Ответы с готовыми решениями:

Написать программу расчета Среднего Геометрического(СГ) положительных элементов в одномерном масиве
Написать программу расчета Среднего Геометрического(СГ) положительных элементов...

Вычислить суму положительных элементов массива
Заданы массивы целых чисел А(5), В(8), С(9). Вычислить суму положительных...

В одномерном массиве найти максимальное количество одинаковых положительных и отрицательных элементов, расположенных рядом.
В одномерном массиве найти максимальное количество одинаковых положительных...

Найти суму 10 положительных введенных чисел
найти суму 10 положительных чисел что вводятся

Найти суму целых положительных чисел, кратных 4 и меньше некоторого числа N.
Найти суму целых положительных чисел,кратных 4 и меньше некоторого числа N....

2
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,769
Записей в блоге: 1
03.12.2012, 09:23 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
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
Var A,B,C:array[1..100] of integer;
    i,j,s,n,t,m,k:integer;
Begin
    write('Размерность? = ');readln(n);
    writeln('Массив A');
    For i:=1 to n do
    Begin
      A[i]:=random(31);
      write(A[i]:3);
      s:=s+A[i];
    End;
    writeln;
    writeln('Сумма = ',s);
    For i:=1 to n do
     if odd(A[i]) then
     Begin
       inc(m);
       C[m]:=A[i];
     End
     else
     Begin
       inc(k);
       B[k]:=A[i];
     End;
    For i:=k downto 2 do
     For j:=2 to i do
      if B[j]>B[j-1] then
      Begin
        t:=B[j];
        B[j]:=B[j-1];
        B[j-1]:=t;
      End;
    writeln('Массив B');
    For i:=1 to k do
     write(B[i]:3);
    writeln;
    For i:=m downto 2 do
     For j:=2 to i do
      if C[j]>C[j-1] then
      Begin
        t:=C[j];
        C[j]:=C[j-1];
        C[j-1]:=t;
      End;
    writeln('Массив C');
    For i:=1 to k do
     write(C[i]:3);
    readln;
End.
1
parvadov
0 / 0 / 0
Регистрация: 03.12.2012
Сообщений: 11
03.12.2012, 14:13  [ТС] 3
а можешь немного расписать строчки ?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.12.2012, 14:13

Найти суму (произведение) положительных (отрицательных) элементов массива
Найти суму (произведение) положительных (отрицательных) элементов массива

В одномерном масиве, состоящем из n элементов вычислить среднее арифметическое элементов, лежащих в диапазоне значений от a до b.
В одномерном масиве, состоящем из n элементов вычислить среднее арифметическое...

одномерном масиве состоящем из N вещественных элементов вычислить:
1) минимальный элемент массива. 2) сумму элементов массива, расположенных...


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

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

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