Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Викочка3115
0 / 0 / 0
Регистрация: 16.08.2016
Сообщений: 81
1

Переписать положительные элементы целочисленного массива Х[15] в массив У[15]

28.01.2020, 12:46. Просмотров 124. Ответов 4
Метки нет (Все метки)

Переписать положительные элементы целочисленного массива Х[15] в массив У[15]. (Элементы массива Х вводятся с клавиатуры). Незаполненные элементы массива У считать нулевыми. Вывести массивы Х и У на экран.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.01.2020, 12:46
Ответы с готовыми решениями:

Переписать положительные элементы массива X (30) и Y (30) в массив Z
Переписать положительные элементы массива X(30) и Y(30) в массив Z. Заполнение массива Z в...

Из массива А в массив В переписать положительные элементы
Сделайте мне пожалуйста задачу дан масив А из10 чисел ,из масива А в масив В положительные...

Переписать в массив Z положительные элементы массива X
например, нам нужно вычислить положительные элементы массива Х, и переписать их в массив Z....

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

Переписать положительные элементы массива Х подряд в массив Y.
1) Вычислить: {Xi, если Хi>0; y={0, если Xi=0; {-1, если Xi<0; где Xi - элементы...

4
ValentinNemo
1481 / 419 / 283
Регистрация: 15.01.2019
Сообщений: 1,369
28.01.2020, 15:54 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
program Project1;
const
  maxelem = 100;
var
  a,b: array [1..maxelem] of integer; { Переменные для  хранения массивов.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  i,k: integer; { Вспомогательные переменные для организации циклов.}
 
begin
  write('Введите значение максимального количества вводимых элементов массива: ');
  Readln(n);
  for i:= 1 to n do
    begin
      write('Введите значение ',i,' элемента: ');
      Read(a[i]);
    end;
  readln;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      write(a[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  k:= 0;
  for i:= 1 to n do
    if a[i] > 0 then
      begin
        inc(k);
        b[k]:= a[i];
      end;
  writeln;
  writeln('Новый массив: ');
  for i:= 1 to k do
    begin
      write(b[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  Readln;
end.
1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5283 / 3143 / 2336
Регистрация: 22.11.2013
Сообщений: 8,840
28.01.2020, 18:49 3
ValentinNemo,
задание еще проще, и, строго говоря, решение ему не соответствует вот в этой части:
Цитата Сообщение от Викочка3115 Посмотреть сообщение
Незаполненные элементы массива У считать нулевыми. Вывести массивы Х и У на экран.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const n=15;
var
  a, b: array [0..n-1] of Integer;
  i, j: Integer;
begin
  Write('x(',n,'): '); 
  for i:=0 to n-1 do begin
    Read(x[i]);
    if x[i]>0 then begin
      y[j]:=x[i]; Inc(j); 
    end;
  end;
  WriteLn('X='); for i:=0 to n-1 do Write(' ',x[i]); WriteLn;
  WriteLn('Y='); for i:=0 to n-1 do Write(' ',y[i]); WriteLn;
end.
Добавлено через 1 минуту
или даже
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
const W=16; n=15;
var
  a, b: array [0..n-1] of Integer;
  i, j: Integer;
begin
  Write('x(',n,'): '); 
  for i:=0 to n-1 do begin
    Read(x[i]);
    if x[i]>0 then begin
      y[j]:=x[i]; Inc(j); 
    end;
  end;
  WriteLn('X' :W,'Y' :W); for i:=0 to n-1 do WriteLn(x[i] :W,y[i] :W);
end.
0
ValentinNemo
1481 / 419 / 283
Регистрация: 15.01.2019
Сообщений: 1,369
28.01.2020, 18:56 4
bormant, спасибо.
Цитата Сообщение от Викочка3115 Посмотреть сообщение
Незаполненные элементы массива У считать нулевыми.
Наконец до меня дошло что имелось ввиду автором вопроса.
Но .... над этой фразой я думал и пришел к выводу, что может быть и так:

Pascal
1
2
3
4
5
for i:= 1 to n do
    if x[i] > 0 then
      y[i]:= x[i]
    else
      y[i]:= 0;
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5283 / 3143 / 2336
Регистрация: 22.11.2013
Сообщений: 8,840
28.01.2020, 19:41 5
ValentinNemo,
строго говоря, может быть и так, ведь в задании нет слова "подряд" в фразе "Переписать положительные элементы целочисленного массива Х[15] в массив У[15] подряд"
В любом случае, в выводе массива Y по заданию должно быть 15 элементов.
0
28.01.2020, 19:41
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.01.2020, 19:41

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

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

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


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

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

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