Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Из стека, в котором числа, буквы и символы, надо переписать в три очереди https://www.cyberforum.ru/ pascal/ thread741501.html Из стека, в котором числа, буквы и символы, надо переписать в три очереди. То есть в одну очередь буквы, в другую числа, а в другую символы. У меня получилось так, что в очередь записывается только...	7) На вход программе подаются сведения о телефонах всех сотрудников некоторого учреждения. В первой строке сообщается количество сотрудников N, каждая Pascal 7) На вход программе подаются сведения о телефонах всех сотрудников некоторого учреждения. В первой строке сообщается количество сотрудников N, каждая из следующих N строк имеет следующий формат: ...
Pascal Найти k-й член последовательности https://www.cyberforum.ru/ pascal/ thread741473.html Помогите решить задачу. Условие на скрине...	Pascal Создать бинарное дерево действительных чисел вводом данных с клавиатуры https://www.cyberforum.ru/ pascal/ thread741453.html Создать бинарное дерево действительных чисел вводом данных с клавиатуры. Подсчитать количество узлов дерева, которые имеют только правого прямого потомка. Кому не трудно,оч прошу,помогите... Сил...
Pascal Организация ввода-вывода Если кто знает, помогите с решением, 7ой вариант	Pascal Поиск экстремумов функций с одной переменной Ребята, помогите пожалуйста... что такое 'Поиск экстремумов функций с одной переменной" и как это делать в scilab? https://www.cyberforum.ru/ pascal/ thread741316.html
Pascal Вывести на экран последовательность символов в виде https://www.cyberforum.ru/ pascal/ thread741273.html народ помогите моей группе завтра сдать экзамен,мы напечаталь больше половину программ но больше нам не хватает мозгов......вот список программ: 1. Вывести на экран последовательность символов в...	Pascal Матрица и седловая точка решите плиз. напашите в коментариях действия того как вы решали. матрица имеет седловую точку а(ig) если а(ig) явл минимальным в i-ой строке и максимальным в g-м столбце. определить максимальную...
Pascal Массив, определить среднее арифметическое https://www.cyberforum.ru/ pascal/ thread741187.html решите пожалуйста задачку, оч надо. зарание, СПАСИБО! дан массив из N эл. все целые числа от -500 до 500. опишите алгоритм который находит среднее арифметическое всех положительных эл. которые...	Pascal По минимальному количеству букв определить слово https://www.cyberforum.ru/ pascal/ thread741181.html решите, плиз, задачку. дан текстовый файл F Для каждой строки указать минимальное количество первых букв, по которым можно различать слова данной строки. результаты выполненых действий сохр в...
Найти количество "особых" элементов матрицы Pascal Дана вещественная матрица. Найти количество "особых" элементов матрицы, считая элемент "особым", если: 1) он больше суммы остальных элементов своего столбца; 2) в его строке слева от него находятся...	Pascal Найти, сколько положительных, отрицательных и нулевых элементов в массиве A={a[i]} удовлетворяют условию c<=a[i]<=d. Использовать динамическое выделен https://www.cyberforum.ru/ pascal/ thread740915.html Найти, сколько положительных, отрицательных и нулевых элементов в массиве A={a} удовлетворяют условию c<=a<=d. Использовать динамическое выделение памяти. заранее спасибо

CodeR

Фрилансер

3417 / 2814 / 3000

Регистрация: 08.02.2012

Сообщений: 8,512

Записей в блоге: 1

22.12.2012, 07:45

Дан одномерный массив Z[n]. Сформировать массив L, содержащий только нечетные элементы массива Z - Pascal - Ответ 3897768

22.12.2012, 07:45. Показов 1804. Ответов 1

Метки (Все метки)

Сообщение было отмечено Аника как решение

Решение

Pascal

Var Z,L:array[1..100] of integer;
    i,n,m:byte;
Begin
    write('Введите n: ');readln(n);
    writeln('Массив Z');
    For i:=1 to n do
    Begin
      Z[i]:=random(31)-15;
      write(Z[i]:4);
    End;
    For i:=1 to n do
     if odd(Z[i]) then 
     Begin
       inc(m);
       L[m]:=Z[i];
     End;
    writeln;
    writeln('Массив L');
    For i:=1 to m do
     write(L[i]:4);
    readln;
End.

Вернуться к обсуждению:
Дан одномерный массив Z[n]. Сформировать массив L, содержащий только нечетные элементы массива Z Pascal

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

22.12.2012, 07:45

Готовые ответы и решения:

Сформировать одномерный массив С, содержащий элементы массива А,присутствующие в массиве В четное число раз.
Сформировать одномерный массив С, содержащий элементы массива А,присутствующие в массиве В четное...

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а...

Дан одномерный массив G[n]. создать массив N, удалив из исходного массива минимальные элементы
Распишите пожалуйста подробнее!!!

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

22.12.2012, 07:45

Помогаю со студенческими работами здесь

Сформировать новый массив, содержащий элементы, не входящие в оба массива
Заданны два массива. Сформировать новый массив, содержащий элементы, не входящие в оба массива....

Заданы два динамических массива. Сформировать новый массив, содержащий элементы, не входящие в оба массива
Не могу сделать Заданы два динамических массива. Сформировать новый массив, содержащий элементы,...

Дан одномерный массив целых чисел. Вывести на экран все двузначные элементы этого массива.
Ребята, помогите пожалуйста! Дан одномерный массив целых чисел. Вывести на экран все двузначные...

Дан одномерный массив натуральных чисел. Выведите на экран таблицу, в которой перечислены элементы массива (бе
Дан одномерный массив натуральных чисел. Выведите на экран таблицу, в которой перечислены элементы...

Наверх