===== PascalABC.NET =====
begin
var a :=ArrRandom(8, 0, 200);
a.Println;
a.Where(p -> p.IsOdd).Sum.Println
end.
Const=10;
var a:array[1..n] of integer;
max,min: integer;
begin
for i:=1 to n do
readln(a[i]);
max:=-32768
min:=32767
for i:=1 to n do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln(max*min)'
end.
Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(161)+40;
write(a[i]:4);
end;
writeln;
end.
Пример:
<span> 83 121 107 43 171 199 116 87 87 144</span>
Var
a: array [1..10] of integer;
i, n: byte;
begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
n:=abs(a[i] mod 10);
if (n = 4) or (n = 8) then write(a[i]:4);
end;
readln;
<span>end.</span>
Если я правильно понял ВП-вперед,НД-назад, то вперед30назад80вперед50 назад40, то она будет находиться на расстоянии 40 от первоначального положения