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

Найти все четные по значению элементы массива

15.03.2012, 16:05. Показов 2149. Ответов 2
Метки нет (Все метки)

Найти все четные по значению элементы массива из N целых чисел. Вывести на печать значение элементов
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.03.2012, 16:05
Ответы с готовыми решениями:

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

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

Найти минимальный элемент массива и вывести на экран все чётные элементы массива.
НУЖНО СОСТАВИТЬ АЛГОРИТМ В ВИДЕО БЛОК-СХЕМЫ И НАПИСАТЬ ПРОГРАММУ ДЛЯ РЕШЕНИЯ ЗАДАЧИ С...

Подпрограмма: Найти минимальный элемент массива и вывести на экран все чётные элементы массива.
Задать массив генератором случайных чисел в диапазоне . Найти минимальный элемент массива и вывести...

2
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
15.03.2012, 18:26 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
x: Array[1..500] of Integer;
n,i: Integer;
Begin
Clrscr;
Randomize;
Writeln('Введите размерность массива: ');
Readln(n);
Writeln('Исходный массив: ');
For i:=1 to n do
 begin
  x[i]:=Random(101)-50;
  Write(x[i],' ');
 end;
Writeln;
Writeln('Полученный массив: ');
For i:= 1 to n do
If x[i] mod 2=0 Then Write(x[i],' ');
Readln
End.
1
Cандальная шляпа
42 / 42 / 36
Регистрация: 12.01.2012
Сообщений: 187
15.03.2012, 18:40 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
   Uses crt;
  const
        n=15;
    Var
       a:array[1..n]of integer;
       i:Integer;
Begin
 Clrscr;
 Randomize;
   Writeln('Исходный массив: ');
     For i:=1 to n do
                    begin
                      a[i]:=Random(100);
                      Write(a[i]:4);
                    end;
 Writeln;
   Writeln('Полученный массив из четных чисел: ');
       For i:= 1 to n do
                       begin
                         If not(odd(a[i]))or(a[i]=0) Then Write(a[i]:5);
                       end;
Readkey;
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.03.2012, 18:40

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

Добавить в конец массива A все четные по значению элементы массива B
Добавить в конец массива A все четные по значению элементы массива B. В массивах хранятся целые...

Увеличить все четные по значению элементы массива на заданное целое число
Дан одномерный массив А, состоящий из натуральных чисел (количество и значение элементов вводится с...

Заменить все четные по значению элементы максимальным
помогите пожалуйста решить

Найти и вывести на экран все четные положительные элементы массива стоящие после максимального элемента массива
скоро экзамен) дан массив А из К целых чисел. найти и вывести на экран все четные положительные...

Найти все четные элементы массива и поменять их на число 1
Буду признателен за помощь...Дан массив B из 15 элементов.Заполнить его случайными числами от 15 до...

Определить максимальное число и заменить им все четные по значению элементы
В массиве целых чисел с количеством элементов 19 определить максимальное число и заменить им все...


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

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

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