1) - г
2) - г
3) - а
4) - г
5) - вагдб
6) - в
7) - б
8) - г
1. 456_8=4*64+5*8+6*1=256+40+6=302
2359_16=0010001101011001
13CF_16=1001111001111_2=11717
11212_3=2*1+1*3+2*9+1*27+1*81=2+3+18+27+81=131_10=203_8=83_16
var<span>a,b,c</span>:integer;
begin<span>read(a,b,c); if (a > b) and (a > c) then</span><span> write(a) elseif (b > a) and (b > c) then</span><span> write(b) else write(c);</span>end.
Раз в обоих заданиях известно количество элементов в массиве, то имеет смысл использовать цикл for.
Задание №1
const n=20;
var
a:array[1..n] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to n do begin
a[i]:=random(1001);
if a[i] mod 10 = 4 then s:=s+1;
end;
writeln(s);
end.
<span>Задание №2
const n=20;
var
a:array[1..n] of integer;
i,max,nmax:integer;
begin
max:=0;
for i:=1 to n do begin
a[i]:=random(1001);
if a[i] >max then begin
nmax:=i;
max:=a[i];
end;
write(a[i]:5);
end;
writeln;
writeln(nmax,' ',a[nmax]);
end.
</span>