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

Переписать в массив Y положительные и в массив Z отрицательные элементы массива X

01.09.2016, 13:59. Показов 1171. Ответов 1
Метки нет (Все метки)

Переписать в массив Y положительные и в массив Z отрицатель-
ные элементы массива X[N].
Помогите пожалуйста с масивами этими) я в них ничего не понимаю.
Напишите программу. Буду очень признателен вам)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.09.2016, 13:59
Ответы с готовыми решениями:

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

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

Переписать в массив X подряд положительные элементы массива P, а в массив Y — отрицательные
И снова здравствуйте =) Задача: Дан массив P( N)состоящий из N вещественных чисел. Переписать...

Если сумма элементов массива > 0, переписать в массив В положительные элементы, иначе – отрицательные
Ввести массив А(n). Найти сумму элементов массива. Если она >0, переписать в массив В положительные...

1
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
01.09.2016, 15:08 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
var x,y,z:array[1..100] of integer;
    nx,ny,nz,i:integer;
begin
randomize;
repeat
write('Размер массива X от 2 до 100 nx=');
readln(nx);
until nx in [2..100];
writeln('Массив X');
ny:=0;
nz:=0;
for i:=1 to nx do
 begin
  x[i]:=-10+random(21);
  write(x[i]:4);
  if i mod 20=0 then writeln;
  if x[i]>0 then
   begin
    inc(ny);
    y[ny]:=x[i];
   end;
  if x[i]<0 then
   begin
    inc(nz);
    z[nz]:=x[i];
   end;
 end;
writeln;
if ny=0 then writeln('Положительных элементов нет!')
else
 begin
  writeln('Массив Y');
  for i:=1 to ny do
   begin
    write(y[i]:4);
    if i mod 20=0 then writeln;
   end;
 end;
writeln;
if nz=0 then writeln('Отрицательных элементов нет!')
else
 begin
  writeln('Массив Z');
  for i:=1 to nz do
   begin
    write(z[i]:4);
    if i mod 20=0 then writeln;
   end;
 end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.09.2016, 15:08

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

Переписать в массив Z все положительные элементы массива Y, а в массиве R - все отрицательные
дан массив X (60 элементов). Вычислить: y=2*sin(SQRT (x-1))\SQR(SQRT (x) *2*x - 3 переписать в...

Переписать в массив В все положительные элементы массива А, а в С все отрицательные
ввести 2-МЕРНЫЙ массив А целого типа. сформировать 2 1-мерных массива В и С переписав в массив В...

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

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


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

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

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