|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
11.05.2011, 16:13 | #1 |
Новичок
Джуниор
Регистрация: 11.05.2011
Сообщений: 2
|
Паскаль
ребят помогите. В паскале Переписать положительные элементы массива
X(100) и Y(80) в массив Z подряд.Запись в массив Z выполнить в подпро-грамме. вот моя прога program lab4; const B=100; type mas= array[1..100]of real; var i,k,M,N:integer; X,Z,Y:mas; procedure PPY(var A:mas; K:integer; var c:mas); var i:integer; var l: integer; begin l:=0; for i:=1 to 50 do if A[i]>0 then begin inc(l); C[l]:=A[i]; end; write('Massiv Z ot '); for i:=1 to l do begin write(c[i],' '); end; writeln; end; Begin writeln('vvedite razmer massiva X'); read(M); writeln('vvedite znachenie massiva X'); for i:= 1 to M do begin write ('X[',i,']='); readln (X[i]); end; write('Massiv X: '); for i:=1 to m do begin write(x[i],' '); end; writeln('vvedite razmer massiva Y'); read(N); writeln('vvedite znachenie massiva Y'); for i:= 1 to N do begin write ('Y[',i,']='); readln (Y[i]); end; write('Massiv Y: '); for i:=1 to m do begin write(Y[i],' '); end; PPY(X,M,Z); PPY(Y,N+M,Z); for i:=(N+M); write Z[i]; end. помогите доделать. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль, Борланд Паскаль-в чем разница??? | Vremya-Dengy | Паскаль, Turbo Pascal, PascalABC.NET | 13 | 31.05.2011 18:23 |
паскаль и турбо паскаль | Евгения Игоревна | Помощь студентам | 6 | 05.05.2011 14:31 |
Паскаль | ффффф | Помощь студентам | 8 | 03.05.2010 20:49 |
Паскаль | Roll1n | Помощь студентам | 3 | 03.10.2009 23:16 |