1) var i,n:integer;
c,d:integer;
a:array[1..1000] of integer;
begin write('введите c,d,n');
read(c,d,n);
for i:=1 to n do begin
a[i]:=random(100);
write(a[i],' ');
end;
for i:=1 to n do begin
if (a[i]>=c) and (a[i]<=d) then write(a[i],' ');
end;
end.
2) по ссылке на файл
<span>p:=(a+b+c)/2; это модуль
</span><span>resh(S,p,a,b,c); это пм</span>
1 копейка,2 копейки,4 коп.,8коп,16 коп,32 коп,64 коп,128 коп и остальные деньги в девятый кошелёк
procedure pr_max(a,b,c:integer; var max:integer);
begin
if a>b then max:=a else max:=b;
if c>max then max:=c;
end;
var m:integer;
begin
pr_max(15,47,24,m);
writeln(m);
end.
Результат:
47
В 4 ответ 3.
к сожалению в 5 не могу ничего понять.