Решение в прикрепленном файле.
M минут n секунд =60*m+n секунд
Объём записи: 16*(60*m+n) Кбайт
Если 6*2^10 > 16(60*m+n), то запись поместится
Var a:array of integer;
n,i,k:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
if a[i]>7 then begin a[i]:=7; k+=1; end;
end;
writeln(k);
for i:=0 to n-1 do
write(a[i],' ');
<span>end.
var a:array[1..10] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to 10 do begin
read(a[i]);
p*=a[i];
end;
writeln(p);
<span>end.
var a:array of integer;
i,sr,n:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
sr+=a[i];
end;
writeln(sr/n:3:2);
<span>end.
var a:array of integer;
n,i,k:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
if a[i]>0 then k+=1;
end;
writeln(k);
<span>end.
var a:array of integer;
n,i,k1,k2:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
if odd(a[i]) then k2+=1
else k1+=1;
end;
writeln(k1,' ',k2);
<span>end.</span></span></span></span></span>
<span>100(7)+x=230(5)
Переведем числа в 10 СС
100(7)=1*7^2+0*7^1+0*7^0=49
230(5)=2*5^2+3*5^1+0*5^0=50+15=65
49+x=65
x=65-49
x=16 (10)</span>
Это зависит от того, что ты напишешь в теле функции. В некоторых ЯП, типа ублюдочного Пасцала, она является встроенной и означает взятие дробной части числа.