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

Построить массив, содержащий все четные элементы массива

10.04.2013, 22:11. Показов 452. Ответов 3
Метки нет (Все метки)

1. Построить массив D (N), содержащий все четные элементы массива А (20).

 Комментарий модератора 
sergeyromantik, обращаю ваше внимание на необходимость соблюдения правил форума:
один вопрос - одна тема. остальные задания вынесены в отдельные темы
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.04.2013, 22:11
Ответы с готовыми решениями:

Записать все четные по значению элементы массива а в массив b
помогите решить задачи! 1)дан массив а из к целых положительных элементов. записать все четные по...

Двумерный массив. Все четные элементы массива заменить нулями
Все четные элементы массива заменить нулями. Заполнение массива произвести случайными целыми...

Задан массив, содержащий 10 чисел. Сформировать 2 массива, включая в массив первый четные (по номеру) элементы массива в
Задан массив, содержащий 10 чисел. Сформировать 2 массива, включая в массив первый четные (по...

Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив M(n)
Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив...

__________________
3
216 / 122 / 99
Регистрация: 14.03.2011
Сообщений: 626
11.04.2013, 16:28 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var i,n: integer;
D: array [1..100] of integer;  
A: array [1..20] of integer;
begin
n:=0;
  writeln('Введите элементы массива: ');
  for i:=1 to 20 do begin
  write('A[',i,']=');
  readln(A[i]);
  if A[i]>0 then begin inc(n); D[n]:=A[i]; end; end;
clrscr();
 writeln('Исходный массив: ');
 for i:=1 to 20 do
 write(A[i]:4);
 writeln;
 writeln('Полученный массив: ');
 for i:=1 to n do
 write(D[i]:4);
 readln;
end.
1
0 / 0 / 0
Регистрация: 08.04.2013
Сообщений: 15
11.04.2013, 18:38  [ТС] 3
Пасиб, а где поставить Random чтобы масив сам заполнялся?
0
216 / 122 / 99
Регистрация: 14.03.2011
Сообщений: 626
11.04.2013, 23:15 4
замените это
Pascal
1
2
3
4
writeln('Введите элементы массива: ');
  for i:=1 to 20 do begin
  write('A[',i,']=');
  readln(A[i]);
на это
Pascal
1
2
  for i:=1 to 20 do begin
  A[i]:=random(200)-100;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.04.2013, 23:15

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

68. (6 б.) Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив M(n). Подсчитать количество тех и других.
68. (6 б.) Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в...

дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы массива а в массив b
дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы...

Переписать все элементы массива E, имеющие четные индексы в массив B
Помогите с кодом, пожалуйста. Переписать все элементы массива E(n), имеющие четные индексы в...

Массив. Заменить все четные элементы заданного массива их «перевернутыми» индексами
Дано двумерный массив целых чисел. Заменить все четные элементы заданного массива их...

Массив: Заменить все четные элементы заданного массива их «перевернутыми» индексами
Дано двумерный массив целых чисел. Заменить все четные элементы заданного массива их...

Сформировать такой массив c, содержащий все элементы массива a, которые встречаются в b
заданы два массива целых положительных чисел: a и b. Ваша задача сформировать такой массив c,...


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

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

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