Program massiv;
var a: array[1..10] of integer;
b,i,p: integer;
begin
p:=1;
for i:=1 to 10 do
begin
write ('Введите a[',i,']=');
readln (a[i]);
end;
writeln ('Введите число');
readln (b);
for i:=1 to 10 do
begin
if a[i]<b then
p:=p*a[i];
end;
for i:=1 to 10 do
write (a[i],' ');
writeln;
writeln ('Произведение элементов, меньших ',b,', равно ',p);
end.
5 магических миль - 8 км
40 магических миль - х км,
Отсюда х = 40*8/5 = 64 км
Значит скорость скутера 64 км/ч, а 32 км он проедет за 32/64=1/2 часа или 30 минут
Ответ: 30 минут
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>
function ReadWhileSum(cond: integer->boolean): sequence of integer;
begin
var s := 0;
while True do
begin
var x := ReadInteger();
s += x;
if not cond(s) then break;
yield x;
end;
end;
begin
Println('Сред. арифм. =',ReadWhileSum(sum -> sum < 150)
.Where(t->t.IsEven).Average);
end.
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
осталось перевести числа в римскую систему счисления и выбрать ответ