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

Создать два массива, в одном из которых находятся все четные по номеру элементы, в другом – нечетные по номеру элементы массива

23.05.2011, 20:57. Показов 5936. Ответов 2
Метки нет (Все метки)

Задан массив. Создать два массива, в одном из которых находятся все четные по номеру элементы, в другом – нечетные по номеру элементы массива.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
1
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.05.2011, 20:57
Ответы с готовыми решениями:

Создать два массива: в одном хранятся чётные элементы исходного, в другом – нечётные
3. Написать программу, которая из случайно заполненного массива из 50 элементов создаёт два...

Дан двумерный массив. Сделать из него 2 одномерных: в одном – четные элементы двумерного массива, в другом – нечетные
Не могу разобраться. Помощь нужна! Заранее спасибо.

Сформировать два массива, в одном из которых будут все четные числа, а во втором - нечетные
Задача: считать с клавиатуры масив целых чисел, из него сформировать два масива в одном из которых...

Создать два массива, которые будут содержать: все четные элементы двух массивов; все нечетные элементы двух массивов
Помогите, пожалуйста, с программой.. Ввести с клавиатуры два одномерных массива произвольной...

2
63 / 63 / 51
Регистрация: 20.05.2011
Сообщений: 116
23.05.2011, 21:11 2
Лучший ответ Сообщение было отмечено викторианна1234 как решение

Решение

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
program mas;
uses crt;
var a: array[1..10] of integer;
    b: array[1..10] of integer;
    c: array[1..10] of integer;
    i: integer;
begin
 clrscr;
 for i:=1 to 10 do
 begin
  write('a[',i,']= ');
  readln(a[i]);
 end;
 writeln;
 for i:=1 to 10 do
 if a[i] mod 2=0 then b[i]:=a[i]
 else c[i]:=a[i];
 for i:=1 to 10 do
 if b[i]<>0 then writeln('b[',i,']= ',b[i]);
 writeln;
 for i:=1 to 10 do
 if c[i]<>0 then writeln('c[',i,']= ',c[i]);
 readln;
end.
1
Robin Bad на форуме
237 / 237 / 194
Регистрация: 14.12.2010
Сообщений: 513
23.05.2011, 21:15 3
Amid007,
Цитата Сообщение от викторианна1234 Посмотреть сообщение
четные по номеру
Хотя, из вашей программы это легко вывести - заменить a[i] mod 2 на i mod 2
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.05.2011, 21:15

Всё четные элементы массива заменить на 100, а нечетные увеличить в два раза
Всё парные элементы заменить на 100, а не парные увеличить в два раза Добавлено через 1 минуту...

Упорядочить нечётные по номеру элементы 2/4 массива по возрастанию обратных
Сортировка procedure Part_4(t, j: integer; R: vector); var i, n: integer; begin t := 0;...

Из заданного массива создать три массива, в одном из которых содержатся элементы кратные 2, в другом кратные 5
Из заданного массива создать три массива, в одном из которых содержатся элементы кратные 2, в...

Сформировать два массива, включая в первый четные элементы исходного массива с нечетными индексами, а во второй нечетные элементы с четными индексами
Задан массив размером K. Сформировать два массива, включая в первый четные элементы исходного...

Из массива размером 10, сформировать два массива размера 5, включая в первый массив четные элементы исх. массива, а во второй - нечетные
Из массива размером 10, сформировать два массива размера 5, включая в первый массив четные элементы...

Сформировать два одномерных массива. В один перешлите все четные, а в другой – нечетные элементы матрицы.
Дана матрица А, имеющая N строк и N столбцов. Сформировать два одномерных массива. В один перешлите...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru