![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
NTL |
![]() ![]()
Сообщение
#1
|
![]() Фанат Delphi ![]() ![]() Группа: Пользователи Сообщений: 72 Пол: Мужской Реальное имя: Сергей Репутация: ![]() ![]() ![]() |
Вообщем,даны 2 массива, в 3-ий занести положительные эл-ты из этих 2-ух массивов. Кому не лень, посмотрите,пожалуйста
![]() Procedure MyArray (M:massiv;var z1:array of integer;c:integer;var p:integer);
var i:integer;
begin
P:=0;
for i:=1 to c do
begin
if M[i]>0 then
begin
z1[p]:=M[i];
p:=p+1;
end;
end
end;
--------
MyArray(X,Z,n,p1);
MyArray(Y,Z,n,p2);
-------------------- ICQ (384-043-857)
|
![]() ![]() |
![]() |
Текстовая версия | 29.07.2025 8:09 |