0 / 0 / 0
Регистрация: 13.10.2011
Сообщений: 16
1

Переписать из исходного массива все элементы больше 5 в 1 массив, а все остальные в другой.

22.06.2012, 18:10. Показов 1575. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Не могу написать программу по условию:
Переписать из исходного массива все элементы больше 5 в 1 массив, а все остальные в другой. Найти сумму положительных элементов первого из полученных массивов и количество отрицательных элементов второго из полученных массивов.
Заранее спасибо.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.06.2012, 18:10
Ответы с готовыми решениями:

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

Переписать в другой массив все элементы исходного массива с четными номерами, а потом с нечетными
Задано массив целых чисел А размерностью N. Переписать в новый массив целых чисел С той же...

Переписать элементы массива А в массив В так, чтобы все отрицательные элементы располагались в начале массива, а все остальные в конце
очень нужна помощь Задача 10. Заполнить массив из 10 элементов с помощью генератора...

Требуется переписать элементы массива a в массив b, удвоив все элементы, меньшие первого элемента, остальные переписать
Требуется переписать элементы массива a в массив b, удвоив все элементы, меньшие первого элемента,...

1
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,590
Записей в блоге: 1
22.06.2012, 19:59 2
Лучший ответ Сообщение было отмечено Imago96 как решение

Решение

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
Var A,B,C:array[1..100] of integer;
    i,j,k,s,p,n:integer;
Begin
    write('Введите размерность: ');readln(n);
    Randomize;
    j:=0;k:=0;p:=0;s:=0;
    For i:=1 to n do
     Begin
      A[i]:=random(21)-10;
      write(A[i]:3);
      if A[i]>5 then
       Begin
        inc(j);
        B[j]:=A[i];
       End
      else 
       Begin
        inc(k);
        C[k]:=A[i];
       End;
     End;
    writeln;
    For i:=1 to j do
     if B[i]>0 then s:=s+B[i];
    writeln('Сумма положительных элементов первого массива: ',s);
    For i:=1 to k do
     if C[i]<0 then inc(p);
    writeln('Кол-во отрицательных второго массива: ',p);
    readln;
End.
1
22.06.2012, 19:59
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2012, 19:59
Помогаю со студенческими работами здесь

В первый массив перенести все цифры из исходного массива, во второй - все остальные символы.
Дорогие друзья,помогите пожалуйста неразбериха какаето-то.Код написал, а что надо не получается. ...

В первый массив перенести все цифры из исходного массива, во второй - все остальные символы
Задан массив из k символов. Создать два новых массива: в первый перенести все цифры из исходного...

Переписать из одного массива в другой все элементы, значения которых больше -1.8 и меньше 2.7
Сформировать вещественный массив A,элементами которого являются случайные числа из диапазона...

Переписать положительные элементы исходного массива во второй массив, а остальные в третий
Дан массив. Переписать его положительные элементы во второй массив, а остальные в третий. Во втором...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru