Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 18.12.2019
Сообщений: 32
1

Переписать подряд все положительные элементы массива

22.12.2019, 12:20. Показов 492. Ответов 1
Метки нет (Все метки)

Переписать подряд все положительные элементы массива BV(N) в массив ZBV ,а все отрицательные -в массив YBV

N<=20
i=1,2..N.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2019, 12:20
Ответы с готовыми решениями:

Переписать подряд все положительные элементы массивов Х(20) и Y(15) в массив Z .
Переписать подряд все положительные элементы массивов Х(20) и Y(15) в массив Z .

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

Переписать положительные элементы массива Х(100) и Y(80) в массив Z подряд
как это записать в паскале,и составить блок схему Переписать положительные элементы массива Х(100)...

Из массива X переписать подряд в массив Y вначале положительные, затем отрицательные элементы
Из массива X=(x1,x2,...,x50) переписать подряд в массив Y вначале положительные, затем...

1
109 / 68 / 46
Регистрация: 13.01.2019
Сообщений: 288
22.12.2019, 12:44 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
Uses Crt;
const
m=20;
var
b: array[1..m] of integer;
bx: array[1..m]of integer;
by: array[1..m]of integer;
i:byte;
k,n:integer;
begin
write('n=');
read(n);
for i:=1 to n do begin
b[i]:=random(-10,10);
write(b[i]:3);
end;
k:=0;
for i:=1 to n do begin
if b[i]>0 then begin
k:=k+1;
bx[k]:=b[i];
end; end; writeln;
for i:=1 to k do begin
write(bx[i]:3); end;
k:=0; writeln;
for i:=1 to n do begin
if b[i]<0 then begin
k:=k+1;
by[k]:=b[i];
end; end;
for i:=1 to k do begin
write(by[i]:3); end;
readln; end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2019, 12:44

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Переписать в массив В все положительные элементы
Дана матрица А(14,14) заполнена случайными вещественными числами в диапазоне . Переписать в массив...

Положительные элементы массива, превышающие заданное Х, переписать в файл
Ввести одномерный массив В. Положительные элементы массива, превышающие заданное Х, переписать в...

Из массива переписать последовательно в другой массив положительные элементы
Даны два одномерных массива разной размерности. Для каждого из заданных одномерных массивов...


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

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

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