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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
sanek_next
Мимолетом здесь...
51 / 51 / 0
Регистрация: 14.05.2010
Сообщений: 208
#1

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

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

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

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

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

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

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

Создать новый массив, объединив два заданных массива - Turbo Pascal
Заданы два массива, содержащих по n целых чисел. Составить программу формирования третьего массива включая в него сначала все элементы...

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

1
Snoopy
1912 / 1069 / 90
Регистрация: 06.12.2008
Сообщений: 2,802
28.09.2010, 18:43 #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
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
Привет! Вот еще темы с ответами:

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

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

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

Создать новый массив, элементами которого являются произведения соответствующих элементов исходных - Turbo Pascal
Решите пожалуйста, заранее спасибо!! Дан целочисленный массив А(п) , В(п). Создать новый массив С(п), элементами которого являются...


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

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

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