Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Nursultan-13
0 / 0 / 0
Регистрация: 15.04.2010
Сообщений: 15
#1

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

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

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

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

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

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

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

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

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

3
STGE
770 / 575 / 91
Регистрация: 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 / 2
Регистрация: 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 / 1069 / 90
Регистрация: 06.12.2008
Сообщений: 2,802
19.04.2010, 10:09 #4
а вообще мне кажется, что последовательность надо не через массив
0
19.04.2010, 10:09
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.04.2010, 10:09
Привет! Вот еще темы с ответами:

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

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

Дана последовательность натуральных чисел, заканчивающаяся нулем. Найти количество четных элементов с номерами, кратными 5. - Pascal
Дана непустая последовательность натуральных чисел, заканчивающаяся нулем. Найти количество четных элементов с номерами, кратными 5.

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


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

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

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