Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 04.12.2016
Сообщений: 2
1

Если сумма элементов массива > 0, переписать в массив В положительные элементы, иначе – отрицательные

04.12.2016, 15:29. Показов 1101. Ответов 1
Метки нет (Все метки)

Ввести массив А(n). Найти сумму элементов массива. Если она >0, переписать в массив В положительные элементы, иначе – отрицательные. Сумму и новый массив В распечатать.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.12.2016, 15:29
Ответы с готовыми решениями:

Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X, состоящего из 6 элементов
Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X,...

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а...

Переписать подряд в массив Y положительные, а в Z - отрицательные элементы массива X
Помогите плиз с программкой):cry: Переписать подряд в массив y положительные z отрицательные...

Переписать подряд в массив Y положительные и в Z отрицательные элементы массива X[n]
Просто помогите мне это сделать. Пожалуйста. Условие N<=40

1
Эксперт Pascal/Delphi
2371 / 1287 / 1487
Регистрация: 29.08.2014
Сообщений: 4,617
05.12.2016, 08:43 2
Лучший ответ Сообщение было отмечено хаскер2002 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const n=10;
var
  a,b:array[1..n] of integer;
  s:real;
  i,j:integer;
begin
  write('Введите ',n,' элементов массива:');
  for i:=1 to n do begin
    read(a[i]);
    s:=s+a[i];
  end;
  writeln('сумма:',s:0:0);
  write('полученный массив:');
   for i:=1 to n do 
     if ((s>0) and (a[i]>=0)) or ((s<=0) and (a[i]<0)) then begin 
       j:=j+1;
       b[j]:=a[i];
       write(b[j],' ');
     end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.12.2016, 08:43

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Переписать подряд в массив Y положительные и в Z отрицательные элементы массива X[N]
Переписать подряд в массив Y положительные и в Z отрицательные элементы массива X. Условия и...

Переписать сначала отрицательные, а затем положительные элементы массива В в массив C
Переписать сначала отрицательные, а затем положительные элементы массива В в массив C.

Переписать подряд в массив Y положительные, а в массив Z отрицательные элементы массива X
Переписать подряд в массив Y положительные, а в массив Z отрицательные элементы массива X. X(40)...

Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X(N).
1. Проверить, есть ли в заданном векторе A=(a1,a2,...,aN) элементы, равные нулю. Если есть, найти...


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

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

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