4E516
0100/1110/0101/0001/0110
001/001/110/010/100/010/110
1162426
Тетрада и триада
S = 30, если поочередно выполнять действия, а легче было бы прогу написать)
Var
i,min,max:integer;
a:array[1..70]of integer;
begin
for i:=1 to 70 do
begin
a[i]:=random(100);
write(a[i],' ');
if i=1 then min:=a[i]
else if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln;
writeln('Ответ: ',max-min);
<span>end.</span>
512*272*1=<span><span>139264бит/8/1024=17 Кбайт</span></span>