создать какой-то неизвестный массив из части элементов известного массива

@RinaM · Регистрация: 21.11.2010

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

Задача: дан одномерный массив размером N. Некоторая часть его элементов удовлетворяет какому-либо условию. Нужно вывести эти элементы (если они есть) в одномерном массиве размером K, где К - количество этих элементов. Задача решается в общем виде.
Проще говоря, мне нужно создать какой-то неизвестный массив из части элементов известного массива.

@kuraist · 29.03.2011, 20:23

а на счет условия можно подробнее???

@RinaM · 30.03.2011, 22:02 **[ТС]**

Условие можно взять любое. Например, выбрать только положительные элементы.

@bogdanustimov · 31.03.2011, 16:04

Uses Crt;
Var n:array[1..100] of integer;
k:array[1..100] of integer;
i,m,c:integer;
begin
writeln('Razmer:');
readln(i);
c:=0;
for m:= 1 to i do
readln(n[m]);
for m:= 1 to i do
if n[m]>0 then begin c:=c+1; k[c]:=n[m] end;
for m:= 1 to c do
write(k[m],' ');
readln;
end.

@RinaM · 31.03.2011, 19:05 **[ТС]**

Как просто! Спасибо!

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных выбран регистр накопления, в. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

@RinaM 81 / 37 / 10 Регистрация: 21.11.2010 Сообщений: 177

	создать какой-то неизвестный массив из части элементов известного массива 29.03.2011, 20:19. Показов 1300. Ответов 4 Метки нет (Все метки) Задача: дан одномерный массив размером N. Некоторая часть его элементов удовлетворяет какому-либо условию. Нужно вывести эти элементы (если они есть) в одномерном массиве размером K, где К - количество этих элементов. Задача решается в общем виде. Проще говоря, мне нужно создать какой-то неизвестный массив из части элементов известного массива. 0

@kuraist 8 / 8 / 4 Регистрация: 26.12.2010 Сообщений: 27
	29.03.2011, 20:23
	а на счет условия можно подробнее??? 0

@RinaM 81 / 37 / 10 Регистрация: 21.11.2010 Сообщений: 177
	30.03.2011, 22:02 [ТС]
	Условие можно взять любое. Например, выбрать только положительные элементы. 0

@bogdanustimov 20 / 20 / 11 Регистрация: 31.12.2010 Сообщений: 112
	31.03.2011, 16:04
	Uses Crt; Var n:array[1..100] of integer; k:array[1..100] of integer; i,m,c:integer; begin writeln('Razmer:'); readln(i); c:=0; for m:= 1 to i do readln(n[m]); for m:= 1 to i do if n[m]>0 then begin c:=c+1; k[c]:=n[m] end; for m:= 1 to c do write(k[m],' '); readln; end. 0

@RinaM 81 / 37 / 10 Регистрация: 21.11.2010 Сообщений: 177
	31.03.2011, 19:05 [ТС]
	Как просто! Спасибо! 0