Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
sanek_next
Мимолетом здесь...
51 / 51 / 7
Регистрация: 14.05.2010
Сообщений: 208
#1

Создать новый массив - Turbo Pascal

28.09.2010, 18:36. Просмотров 283. Ответов 1
Метки нет (Все метки)

В массиве К (ограничение 20эл) Создать новый массив состоящий из отрицательных элементов , стоящих на четных местах.!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.09.2010, 18:36
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Создать новый массив (Turbo Pascal):

Массив. Создать новый массив из четных элементов исходного
заполнить массив...

Создать новый массив y[i]=(x[i])^i
Помогите пожалуйста решить, не даются мне подпрограммы... Дан массив x из 15...

Создать новый массив из положительных элементов заданного массива
2. задано одномерный массив целых чисел. Создать новый массив с положительных...

Создать новый массив, объединив два заданных массива
Заданы два массива, содержащих по n целых чисел. Составить программу...

Создать новый массив из элементов, которые являются делителями
дан одномерный массив.создать новый массив из элементов которые являются...

Создать новый массив из элементов данного, которые не принадлежат интервалу (4,14)
не могу понять .Числовой массив из 14 элементов.Новый массив из элементов...

1
Snoopy
1912 / 1069 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
28.09.2010, 18:43 #2
Лучший ответ Сообщение было отмечено sanek_next как решение

Решение

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
uses crt;
const n=20;
var a,b:array[1..n] of integer;
    i,k:integer;
begin
ClrScr;
Randomize;
Writeln('Massiv A:');
for i:=1 to n do
 begin
  a[i]:=random(20)-10;
  Write(a[i],'  ');
 end;
Writeln;
k:=0;
for i:=1 to n do
 if (a[i]<0) and (i mod 2=0) then
  begin
   k:=k+1;
   b[k]:=a[i];
  end;
Writeln('Massiv B: ');
for i:=1 to k do
 Write(b[i],'  ');
Readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.09.2010, 18:43
Привет! Вот еще темы с решениями:

Создать новый массив, заменив отрицательные элементы на –i, положительные на +i , нулевые на 7
Помогите сделать массивы Дан массив B(N). Создать новый массив, заменив...

Создать новый массив, содержащий информацию обоих заданных массивов
Ребят , хелпаните пожалуйста =) Задано два массива записей . Первый содержит...

Создать из элементов упорядоченных по неубыванию массивов новый массив, упорядоченный по возрастанию
Даны два натуральных числа n и m (n&lt;=100, m&lt;=100) и два упорядоченных по...

Создать новый массив, элементами которого являются все отрицательные элементы массива C
Дан массив С(п). Создать новый массив, элементами которого являются все...


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

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

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