0 / 0 / 0
Регистрация: 15.04.2010
Сообщений: 15
1

Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой последовательность. если таких чисел нет то вывести сообщение о

18.04.2010, 22:33. Показов 7867. Ответов 3
Метки нет (Все метки)

Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой последовательность. если таких чисел нет то вывести сообщение об этом факте
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.04.2010, 22:33
Ответы с готовыми решениями:

Создать массив из четных чисел исходного массива, если таких чисел нет то вывести соответственное сообщение
Дан массив натуральных чисел, создать массив из четных чисел исходного массива, если таких чисел...

Дана последовательность натуральных чисел a1, a2, ..., an. Создать массив из четных чисел этой последовательности.
Дана последовательность натуральных чисел a1, a2, ..., an. Создать массив из четных чисел этой...

Дана последовательность из n целых чисел. Найти среднее арифметическое чётных чисел из этой последовательности
. Дана последовательность из n целых чисел. Найти среднее арифметическое чётных чисел из этой...

Дана последовательность из n целых чисел. Определить количество нулей, если их нет, вывести сообщение об этом
Необходимо написать 2 кода. 1 с использованием цикла While. 2 с использованием цикла Until....

3
773 / 578 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
18.04.2010, 23:56 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
uses crt;
const n=10;
var a,b: array[1..n] of byte; i,k: byte;
begin
randomize;
k:=0;
clrscr;
writeln('исходная последовательность чисел: ');
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i]:3);
if a[i] mod 2 = 0 then
begin
inc(k);
b[k]:=a[i];
end;
end;
writeln;
if k>0 then
begin
writeln('чётные числа последовательности: ');
for i:=1 to k do
write(b[i]:3);
end
else writeln('в последовательности отсутствуют чётные числа');
end.
0
29 / 28 / 18
Регистрация: 06.04.2010
Сообщений: 68
19.04.2010, 00:13 3
Цитата Сообщение от Nursultan-13 Посмотреть сообщение
если таких чисел нет то вывести сообщение об этом факте

STGE, я думаю что так ваша программа будет работать покоректней)
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
uses crt;
const n=10;
var a,b: array[1..n] of byte; i,k,f: byte;
begin
randomize;
k:=1;
f:=0;
clrscr;
writeln('исходная последовательность чисел: ');
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i]:3);
if (a[i] mod 2=0) and (a[i]>0) then
begin
f:=1;
b[k]:=a[i];
inc(k);
end;
end;
k:=k-1;
writeln;
if f=0 then writeln('четных чисел нет') else begin
writeln('чётные числа последовательности: ');
for i:=1 to k do
write(b[i]:3);
end;
end.
0
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
19.04.2010, 10:09 4
а вообще мне кажется, что последовательность надо не через массив
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.04.2010, 10:09
Помогаю со студенческими работами здесь

Дан целочисленный массив C(L). Найдите количество чисел равных К. Если таких чисел нет, выдайте соответствующее сообщение.
1. Дан целочисленный массив C(L). Найдите количество чисел равных К. Если таких чисел нет,...

Дана последовательность из n целых чисел. Найти количество четных элементов этой последовательности
1) Дана последовательность из n целых чисел. Найти количество четных элементов этой...

Дана последовательность из n целых чисел.Найти сумму чётных элементов этой последовательности.
Дана последовательность из n целых чисел.Найти сумму чётных элементов этой последовательности. В...

Дана последовательность из n целых чисел. Найти сумму четных элементов этой последовательности
Дана последовательность из n целых чисел.Найти сумму чётных элементов этой последовательности....


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

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

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