sashajuzik
1

Заполнить массивы: В(N) - элементами четных номеров, С(N) - элементами нечетных номеров массива

25.12.2012, 15:21. Показов 1118. Ответов 1
Метки нет (Все метки)

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

Массивы, удаление четных номеров, обнаружение максимальных номеров.
Прошу помочь написать текст программы под дельфи. Задание 1: Заполнить массив случайными целыми...

Найти для чётных номеров - максимальный, для нечётных номеров - минимальный элемент матрицы M (m,n)
Ребят помогите пожалуйста задачей. Найти для чётных номеров - максимальный, для нечётных номеров -...

Нахождение номеров строк с положительными элементами в матрице.
Здравствуйте. помогите пожалуйста с выполнением данного задания: %-) для каждого столбца найти и...

Создать массив номеров столбцов с отрицательными элементами на главной диагонали
составить программу. без констант! Дана действительная квадратная матрица порядка n. Создать...

1
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
30.12.2012, 03:02 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
27
28
29
30
31
32
33
34
uses crt;
const nmax=100;
var a: array [1..2*nmax] of integer;
    b,c: array [1..nmax] of integer;
    n,i,rb,rc: byte;
begin
repeat
write('n ( не более ',nmax,')='); readln(n);
until n in [1..nmax];
writeln('Исходный массив');
for i:=1 to n*2 do
    begin
    a[i]:=random(199)-99;
    write(a[i],' ');
    if a[i] mod 2=0 then
       begin
       inc(rb);
       b[rb]:=a[i];
       end;
    if odd(a[i]) then
       begin
       inc(rc);
       c[rc]:=a[i];
       end;
    end;
writeln;
writeln('Массив четных');
for i:=1 to rb do
    write(b[i],' ');
writeln;
writeln('Массив нечетных');
for i:=1 to rc do
    write(c[i],' ');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.12.2012, 03:02
Помогаю со студенческими работами здесь

Поменять местами элементы массива, стоящие на чётных местах, с элементами, стоящими на нечетных
Реализовать два способа задания массивов: ввод значений с клавиатуры и заполнение случайными...

Массивы: поменять местами соседние элементы, стоящие на четных местах, с элементами ,стоящими на нечетных местах
В заданном одномерном массиве поменять местами соседние элементы ,стоящие на четных местах ,с...

Поменять местами соседние элементы массива, стоящие на четных местах, с элементами, стоящими на нечетных
Задача на массивы: В заданном одномерном массиве поменять местами соседние элементы, стоящие на...

Поменять местами соседние элементы массива, стоящие на чётных местах, с элементами, стоящими на нечётных места
Пожалуйста помогите решить задачку... сессия через 2 дня((((( В заданном одномерном массиве...


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

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

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