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

@Nursultan-13 · Регистрация: 15.04.2010

Студворк — интернет-сервис помощи студентам

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

@STGE · 18.04.2010, 23:56

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.

@DaTa · 19.04.2010, 00:13

Сообщение от 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.

@Snoopy · 19.04.2010, 10:09

а вообще мне кажется, что последовательность надо не через массив

Новые блоги и статьи Все статьи Все блоги /
Непрерывная интеграция для пакета Python Mr. Docker 22.06.2025 Было 4 часа утра пятницы, когда я выпустил новую версию нашей внутренней библиотеки для обработки данных. Релиз 0. 5. 2 содержал небольшой фикс для обработки дат в ISO формате, что может пойти не так?. . .	Продвинутый ETL на C# из OLTP БД в хранилище stackOverflow 22.06.2025 Работая в сфере корпоративной аналитики, я постоянно сталкиваюсь с одним и тем же - нужны чистые, структурированные и, главное, свежие данные. Без них современные аналитические системы, машинное. . .	Мастер-класс по микросервисам на Node.js Reangularity 21.06.2025 Node. js стал одной из самых популярных платформ для микросервисной архитектуры не случайно. Его неблокирующая однопоточная модель и событийно-ориентированный подход делают его идеальным для. . .	Управление Arduino из WPF приложения Wired 21.06.2025 Зачем вообще связывать Arduino с WPF-приложением? Казалось бы, у Arduino есть собственная среда разработки, своя экосистема, свои способы управления. Однако при создании серьезных проектов. . .	Звёздная пыль kumehtar 20.06.2025 Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .
Создание нейросети с PyTorch AI_Generated 19.06.2025 Ключевое преимущество PyTorch — его питоновская натура. В отличие от TensorFlow, который изначально был построен как статический вычислительный граф, PyTorch предлагает динамический подход. Это. . .	JWT аутентификация в ASP.NET Core UnmanagedCoder 18.06.2025 Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .	Краткий курс по С# aaLeXAA 18.06.2025 Здесь вы найдете все необходимые функции чтоб написать програму на C# Задание 1: КЛАСС FORM 1 public partial class Form1 : Form { Spisok listin = new Spisok(); . . .	50 самых полезных примеров кода Python для частых задач py-thonny 17.06.2025 Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .	C# и продвинутые приемы работы с БД stackOverflow 17.06.2025 Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .

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

	Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой последовательность. если таких чисел нет то вывести сообщение о 18.04.2010, 22:33. Показов 8743. Ответов 3 Метки нет (Все метки) Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой последовательность. если таких чисел нет то вывести сообщение об этом факте 0

@Snoopy 1916 / 1066 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	19.04.2010, 10:09
	а вообще мне кажется, что последовательность надо не через массив 0

Опции темы