Используя процедуры, введите массив размером n с клавиатуры, а затем выведите элементы с a по b примеры входные данные/выходные данные 5 1 2 3 4 5/ 2 3 4 2 4
269
345
Ответы на вопрос:
type 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.
Популярно: Информатика
-
tgdnm22.09.2022 16:03
-
кросавиться1111113.11.2021 00:35
-
Мганвплмппррнвпол01.01.2022 15:00
-
NetronPozitiv03.08.2020 01:32
-
6yterffjdjd16.04.2022 08:12
-
Xtrail19.10.2022 04:18
-
jdh937288838120.10.2020 00:47
-
Sophia17607.09.2020 23:02
-
залина10214.10.2022 01:01
-
555532122.10.2022 15:10