Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
Nursultan-13
0 / 0 / 0
Регистрация: 15.04.2010
Сообщений: 15
1

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

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

Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой последовательность. если таких чисел нет то вывести сообщение об этом факте
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.04.2010, 22:33
Ответы с готовыми решениями:

Задано N количество чисел последовательности и последовательность из N чисел. Найти и вывести произведение этих чисел и первое положительно число
Задано N количество чисел последовательности и последовательность из N чисел....

Найти наименьшее из четных чисел, входящих в последовательность A[1]-1, A[1], A[2], ..., A[n] и количество нечетных чисел
Дан целочисленный массив A(N) Найти наименьшее из четных чисел, входящих в...

Сгенерировать последовательность из 10 случайных чисел и подсчитать сумму четных чисел
Составить программу, по которой компьютер генерирует последовательность из 10...

Вводится последовательность из 15 целых чисел. Найти количество четных чисел
Ребят помогите пожалуйста . В Паскале не селён а вот тут надо работы сдать....

Дана последовательность из 10 чисел.Определить колличество отрицаиельных чисел в ней.
Пожалуйста,помогите решить задачки!Нужно срочно! Составить схему...

3
STGE
771 / 576 / 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
DaTa
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
Snoopy
1912 / 1071 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
19.04.2010, 10:09 4
а вообще мне кажется, что последовательность надо не через массив
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.04.2010, 10:09

Вводится произвольная последовательность целых чисел,заканчивающаяся нулем. Найти среднее арифметическое четных чисел
Вводится произвольная последовательность целых чисел,заканчивающаяся нулем....

Дана последовательность из n целых чисел. Определите, со скольких положительных чисел она начинается.
Дана последовательность из n целых чисел. Определите, со скольких положительных...

дана последовательность вещественных чисел а1,а2,.а15 Определить являеться ли последовательность упорядоченной по возрастанию
дана последовательность вещественных чисел а1,а2,...а15 Определить являеться ли...


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

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

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