Заданы три одномерных массива произв.размеров

@Mari04 · Регистрация: 04.03.2010

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

Заданы три одномерных массива произв.размеров. Для каждого из этих массивов получить по новому одномерному, состоящ.только из полож элементов зад.массива. Использовать подпрограмму -процедуру.
Народ,надеюсь на вашу помощь!Остался час..

@Puporev · 30.04.2010, 12:36

Pascal

type mas=array[1..100] of integer;
procedure New(a:mas;n:byte;var b:mas;m:byte);
var i:byte;
begin
m:=0;
for i:=1 to n do
if a[i]>0 then
 begin
  m:=m+1;
  b[m]:=a[i];
 end;
end;

@Mari04 · 30.04.2010, 12:56 **[ТС]**

Огромное спасибо! Вы меня выручили..Не могли бы вы помочь составить блок-схему..Заранее большое спасибо!

@Mari04 0 / 0 / 0 Регистрация: 04.03.2010 Сообщений: 22
		1
	Заданы три одномерных массива произв.размеров 30.04.2010, 12:29. Показов 1405. Ответов 2 Метки нет (Все метки) Заданы три одномерных массива произв.размеров. Для каждого из этих массивов получить по новому одномерному, состоящ.только из полож элементов зад.массива. Использовать подпрограмму -процедуру. Народ,надеюсь на вашу помощь!Остался час.. 0

@Mari04 0 / 0 / 0 Регистрация: 04.03.2010 Сообщений: 22
	30.04.2010, 12:56 [ТС]	3
	Огромное спасибо! Вы меня выручили..Не могли бы вы помочь составить блок-схему..Заранее большое спасибо! 0

Опции темы

Заданы три одномерных массива произв.размеров

Решение