<span><span>Var
x: Array [1..50] of Real;
i,n: Byte;
s: Real;
BEGIN
Repeat
Write('Введите кол-во элементов не более 50: ');
Readln(n);
until n in [1..50];
s:=0;
For i:=1 to n do
begin
x[i]:=10*Random;
If Odd(i) Then
s:=s+x[i];
Write(x[i]:7:2);
end;
Writeln;
Writeln('Сумма элементов с нечетными индексами = ',s:0:2);
END.</span></span>
20*x-обём файла винтика
20*x*0.2+20x=24x-обём шпунтика
20x-4x=16x-осалось у винтика когда шпунтик начал сказать свой файл
16x/(x/2)=32 мин будет у витика
24x/(x/2)=48мин у шпунтика
48-(32+4)=12мин разница времени
ответ 12
Убрать это предупреждение невозможно.
PascalABC.NET 3.2 - это современная версия языка, а практически
в любом современном языке программирования параметр цикла описывается в
заголовке цикла (и тем самым локализуется в этом цикле).
По утверждению разработчиков (ЮФУ), через какое-то время вариант с использованием в качестве параметра цикла внешних переменных вообще будет запрещен.
1,25Кбайт=1280байт
1280/120 байт/с - скорость передачи
250/(1280/120)= 23,4375с - время передачи 250 байт информации