M=6/////////////////////////////////////
Если в первый день машинист проехал 10 км, то во второй день он проехал на 5 км больше
сколько км проехал машинист за два дня?
10 + 5 = 15 (второй день)
15 + 10 = 25 (проехал за два дня)
var a:array[1..20] of integer; i,arf,k:integer;
begin
k:=0;
for i:=1 to 20 do
begin
a[i]:=random(10);
if (a[i]/2=a[i] div 2) or (i/2<>i div 2) then
begin arf:=arf+a[i]; inc(k); end;
end;
arf:=round(arf/k);
for i:=1 to 20 do writeln('a[',i,']= ',a[i]);
writeln('Srendee arirfm. chentix chisel u nechetnix indexov = ',arf);
readln;
end.
<span>var s: string;
i: integer;
begin
writeln('Введите число');
readln(s);
for i:=length(s) downto 1 do
write(s[i]);
end.</span>