Предмет:
ИнформатикаАвтор:
ashley23type arr = array of integer;
var c:arr;
procedure m_in(var m:arr) ;
var i,n:integer;
begin
read (n);
m := new integer[n+1];
for i:= 1 to n do read (m[i])
end;
procedure m_out(var m:arr) ;
var i,a,b:integer;
begin
readln (a,b);
for i:= a to b do write(m[i],' ');
writeln;
end;
begin
m_in(c);
m_out(c)
end.
Автор:
taniyaДобавить свой ответ
Предмет:
Русский языкАвтор:
boo53Ответов:
Смотреть
Предмет:
Русский языкАвтор:
vanesaОтветов:
Смотреть
Предмет:
ГеографияАвтор:
yoselinmnnpОтветов:
Смотреть
Предмет:
Русский языкАвтор:
dieselruigОтветов:
Смотреть