<span>Почему вы не хотите воспользоваться онлайн шифровщиком ?
Вот и ответ : рцяешцст</span>
Ответ:
program arrdiap;
var
N, A, B, i: Integer;
M: array of Integer;
begin
Write ('Введите размерность массива: ');
ReadLn (N);
SetLength (M, N);
Randomize;
for i := Low (M) to High (M) do begin
M [i] := Random (100);
Write (M [i], ' ');
end;
WriteLn;
Write ('Введите диапазон A, B: ');
ReadLn (A, B);
WriteLn;
WriteLn ('Принадлежит диапазону ', A, ' - ', B, ':');
for i := Low (M) to High (M) do begin
if (M [i] >= A) and (M [i] <= B) then
Write (M [i], ' ');
end;
ReadLn;
end.
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<em>Цикл for</em>
begin
var p:=1.0;
for var i:=1 to 100 do p*=(1+Sin(i/10));
Writeln(p)
end.
<em>Результат</em>
<u>1.72984094681</u>772<u>E-14</u>
<em>Цикл repeat</em>
begin
var (p,i):=(1.0,0.1);
repeat
p*=(1+Sin(i));
i+=0.1
until i>10;
Writeln(p)
end.
<em>Результат</em>
<u>1.72984094681</u>773<u>E-14</u>
Контрольное решение с точностью 20 цифр приведено во вложении. В соответствии с ним верные цифры в результатах <u>подчеркнуты</u>.
===== PascalABC.NET =====
begin
var a := ArrRandom(5, -1, 1);
foreach var x in a do
Write(x:3)
end.