Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
DmitryStrs
0 / 0 / 0
Регистрация: 23.03.2017
Сообщений: 3
#1

Получить новые массивы А2 и В2 сответственно с только положительными и только отрицательными элементами - Free Pascal

23.03.2017, 13:21. Просмотров 133. Ответов 2

Имеются 2 массива A1(10) и B1(12). Оба содержат положительные и отрицательные элементы(вводятся с клавиатуры). Получить два новых массива A2 и B2 с , соответственно только положительными и только отрицательными элементами. Массивы вывести на экран. Заранее благодарю.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.03.2017, 13:21
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Получить новые массивы А2 и В2 сответственно с только положительными и только отрицательными элементами (Free Pascal):

Получить одномерный массив из двумерного, заполнив его только отрицательными значениями - Pascal
Задача такая: Заполнить 2х мерный масик 5*5 с помощью рандома от отрезке от -1 до 10. Потом перевести в 1 мерный массив и перебросить...

Массивы. В строках с отрицательными элементами на главной диагонали найти наибольший со всех элементов - Pascal
Задана матрица порядка 10. В строках с отрицательными элементами на главной диагонали найти наибольший со всех элементов. Вообще не...

Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai - Pascal
Даны массивы а и b, состоящие из n-элементов каждый. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi=...

как сравнить элементы двух массивов, но только так, чтобы первый сравнивался только с первым, второй только со вторым и т.д.? - Pascal
Подскажите пожалуйста, как сравнить элементы двух массивов, но только так, чтобы первый сравнивался только с первым, второй только со...

Получить новые массивы А2 и В2 с соответственно только положительными и отрицательными элементами. - Turbo Pascal
Имеются два массива А1(10) и В1(12), содержащие как положительные, так и отрицательные элементы. Получить новые массивы А2 и В2 с...

Из элементов исходного массива сформировать массивы с отрицательными и положительными элементами - PascalABC.NET
Доброе время суток, помогите написать программу в Паскале АБЦ, задание ниже, заранее спасибо.

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3346 / 2333 / 1614
Регистрация: 05.06.2014
Сообщений: 11,046
23.03.2017, 15:12 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Получить новые массивы А2 и В2 с соответственно только положительными и отрицательными элементами.
1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3553 / 2247 / 1149
Регистрация: 22.11.2013
Сообщений: 5,916
24.03.2017, 21:59 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Строго говоря:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const na=10; nb=12;
var
  a1, a2: array [1..na] of Integer;
  b1, b2: array [1..nb] of Integer;
  i, ma, mb: Integer;
begin
  Write(na,' элементов A1: '); for i:=1 to na do Read(a1[i]);
  Write(nb,' элементов B1: '); for i:=1 to nb do Read(b1[i]);
  for i:=1 to na do if a[i]>0 then begin Inc(ma); a2[ma]:=a1[i]; end;
  for i:=1 to nb do if b[i]<0 then begin Inc(mb); b2[mb]:=b1[i]; end;
  Write('A2 ='); for i:=1 to ma do Write(' ',a2[i]); WriteLn;
  Write('B2 ='); for i:=1 to mb do Write(' ',b2[i]); WriteLn;
end.
или
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const na=10; nb=12;
var
  a1, a2: array [1..na] of Integer;
  b1, b2: array [1..nb] of Integer;
  i, ma, mb: Integer;
begin
  Write(na,' элементов A1: ');
  for i:=1 to na do begin
    Read(a1[i]); if a[i]>0 then begin Inc(ma); a2[ma]:=a1[i]; end;
  end;
  Write(nb,' элементов B1: ');
  for i:=1 to nb do begin
    Read(b1[i]); if b[i]<0 then begin Inc(mb); b2[mb]:=b1[i]; end;
  end;
  Write('A2 ='); for i:=1 to ma do Write(' ',a2[i]); WriteLn;
  Write('B2 ='); for i:=1 to mb do Write(' ',b2[i]); WriteLn;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.03.2017, 21:59
Привет! Вот еще темы с ответами:

Получить 2 новые строки, одна из которых содержит только буквы, а другая только цифры - Turbo Pascal
Дана строка состоящая из букв и цифр. Получить 2 новые строки, одна из которых содержит только буквы, а другая только цифры.

Получить две новые строки, одна из которых содержит только буквы, другая только цифры - Turbo Pascal
добрый вечер! не могли бы вы помочь с двумя задачками? :) 1) Дана строка, состоящая из букв и цифр. Получить две новые строки, одна из...

Удалить столбец с первыми положительными элементами и строку с последними отрицательными элементами - C (СИ)
Столбцы удаляются, а вот строки не хотят, подскажите в чем проблема, пожалуйста. Задание: столбец с первыми положительными элементами...

Образовать из матрицы 2 массива с положительными элементами и отрицательными элементами по возрастанию - C++
Дана матрица размера N. Образовать из него 2 массива с положительными элементами и отрицательными элементами по возрастанию. Помогите...


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

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

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