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

Дан массив целых чисел. Напечатать все четные элементы

26.06.2012, 20:31. Просмотров 4355. Ответов 1
Метки нет (Все метки)


Использование условий для изменения элементов массива и вывода их на экран
6.3) Дан массив целых чисел. Напечатать: все четные элементы;
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.06.2012, 20:31
Ответы с готовыми решениями:

Дан массив целых чисел а(12). Переписать в массив х четные, а в массив у нечетные элементы массива а
Помогите пожалуйста решить эту задачу. Массив a выводит на печать. Я пишу a mod 2 = 0 , а он мне 41...

Дан массив целых чисел все элементы оканчивающиеся цифрой 4,уменьшить на 2
Дан массив целых чисел все элементы оканчивающиеся цифрой 4,уменьшить на 2

Дан массив целых чисел. Все элементы, кратные числу 10 заменить нулём
Задача №1 Дан массив из 20-ти элементов. Сформировать два массива размером 10, включив в первый из...

Дан массив. Вывести все четные элементы
Дан массив. Вывести все четные элементы. (Паскаль и делфи)

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
Лучи добра
173 / 171 / 191
Регистрация: 08.06.2012
Сообщений: 292
26.06.2012, 20:47 2
Лучший ответ Сообщение было отмечено Doc....99 как решение

Решение

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
program z;
uses crt;
const n=10;
var i,f:byte;
a:array [1..n] of integer;
begin
     clrscr;
     writeln('Ââîä ýëåìåíòîâ ìàññèâà');
     for i:=1 to  n do
         begin
              write('a[',i,']=');
              readln(a[i]);
         end;
     clrscr;
     write('Ìàññèâ: ');
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     f:=0;
     write('Íå÷åòíûå ýëåìåíòû ìàññèâà: ');
     for i:=1 to n do
         if odd(a[i])=true
            then
                begin
                     write(a[i],' ');
                     f:=1;
                end;
     if f=0
        then
            write('òàêèõ ýëåìåíòîâ íåò!');
     readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.06.2012, 20:47

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

Задать массив целых чисел и четные элементы записать во второй массив
А не четные в 3

Дан целочисленный массив размера N. Вывести вначале все его четные элементы, а затем - нечетные.
Помогите: Дан целочисленный массив размера N. Вывести вначале все его четные элементы, а затем -...

Заменить все четные элементы массива из положительных целых чисел, состоящего из n элементов, на значение минимального
1. Заменить все четные элементы массива из положительных целых чисел, состоящего из n элементов, на...

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


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

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

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