Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
22 / 22 / 7
Регистрация: 11.09.2013
Сообщений: 186
1

Даны массивы А(15 элементов) и В(5 элементов)!Построить массив С,состоящий из отрицательных элементов этих двух

13.11.2013, 21:25. Просмотров 1222. Ответов 1
Метки нет (Все метки)

Даны массивы А(15 элементов) и В(5 элементов)!Построить массив С,состоящий из отрицательных элементов этих двух!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.11.2013, 21:25
Ответы с готовыми решениями:

Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В, состоящий из m элементов),
Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В, состоящий из...

Даны массивы вещественных чисел А и B с одинаковым кол-вом элементов, необходимо найти сумму положительных элементов в этих массивах
У меня такая задача: Даны массивы вещественных чисел А и B с одинаковым кол-вом элементов,...

Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В – из m элементов), заполненных с
n= 22, m= 16, L= -50, P=30; Массив С состоит из элементов исходных массивов, меньших первого...

Даны два одномерных массива целых чисел (массив A, состоящий из n элементов, массив B - из m элементов)
Даны два одномерных массива целых чисел (массив A, состоящий из n элементов, массив B - из m...

1
3016 / 1904 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
13.11.2013, 22:09 2
Лучший ответ Сообщение было отмечено AnDrOs96 как решение

Решение

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
const
  n = 15;
  m = 5;
 
var
  a: array [1..n] of integer;
  b: array [1..m] of integer;
  c: array [1..m + n] of integer;
  i, k: byte;
 
begin
  Randomize;
  Writeln('Массив A:');
  for i := 1 to n do
  begin
    a[i] := Random(11) - 5;
    if a[i] < 0 then
    begin
      k := k + 1;
      c[k] := a[i];
    end;
    Write(a[i], ' ');
  end;
  Writeln;
  Writeln('Массив B:');
  for i := 1 to m do
  begin
    b[i] := Random(11) - 5;
    if b[i] < 0 then
    begin
      k := k + 1;
      c[k] := b[i];
    end;
    Write(b[i], ' ');
  end;
  Writeln;
  Writeln('Массив C:');
  for i := 1 to k do
    Write(c[i], ' ');
  Readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.11.2013, 22:09

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

ArrayList: Сформировать массив C, состоящий из нечетных элементов А и из отрицательных элементов B
Даны два массива A и B. Сформировать новый массив C, состоящий из нечетных элементов из массива А и...

Построить одномерный массив состоящий из наименьших значений элементов строк. Посчитать сумму его элементов
Дана матрица 10 на 15. Построить одномерный массив состоящий из наименьших значений элементов...

Задан массив из n элементов. Сформировать массивы номеров положительных и отрицательных элементов
помогите решить, пожалуйста! Задан массив из n элементов. Сформировать массивы номеров...

Объявить массив не более чем 15 элементов. Вывести обратные по модулю величины и проверить изменились ли адреса элементов этих двух массивов.
Объявить массив не более чем 15 элементов. Вывести обратные по модулю величины и проверить...

Даны два массива: А, состоящий из N элементов и В, состоящий из N элементов
Даны два массива: А, состоящий из N элементов и В, состоящий из N элементов. Сформировать массив C...

Задан целочисленный массив из 20 элементов, среди элементов которых есть нулевые. Вывести номера этих элементов
Задан целочисленный массив из 20 элементов, среди элементов которых есть нулевые. Вывести номера...


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

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

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