Формула нахождения объема закодированного звука
A = D * i * t * c (D - частота дискретизации, i - глубина бит/разрядность, t - время, c - кол-во каналов)
Приводим единицы измерения
D = 32 кГц = 32000 Гц
t = 60 c
A = D * i * t * c = 32000 * 32 * 60 * 4 = 245760000.0 бит = 30000.0 Kбайт = 29.296875 Мбайт
I=1 v=5 x=10 l=50 c=100
cv=100+5=105
vc=100-5=95
lc=100-50=50
cl=100+50
cvciv= 100 + 95 +4=199
vciv=95+4=99
прибавим по еденице к результатам и получим 200 и 100
осталось перевести числа в римскую систему счисления и выбрать ответ
Const n=10;
var a:array[1..n] of integer;
i,s,min:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:3);
end;
writeln;
s:=0; min:=a[1];
for i:=1 to n do
begin
s:=s+a[i];
if a[i]<min then min:=a[i];
end;
writeln('s = ',s,' min = ',min);
end.
Пример:
Массив A:
18 22 5 50 18 23 48 2 22 26
s = 234 min = 2
UPD
__________
Var
a,b,s,i:integer;
begin
readln(a,b);
if a <> b then
for i:=1 to abs(b) do s:=s+a
else for I:=1 to abs(b) do s:=s+a;
if (a<0) and (b<0) then s:=abs(s)
else if b<0 then s:=-s;
writeln(s);
end.