А)
var
a:array[1..10]of integer;
i:integer;
begin
for i:=1 to 10 do
a[i]:=random(20)+1;
for i:=10 downto 1 do
write(a[i],' ');
end.
б)
var
a:array[1..20]of integer;
i:integer;
begin
for i:=1 to 20 do
a[i]:=random(11*i)+10*i;
for i:=1 to 20 do
if i mod 2=1 then write(a[i],' ');
end.
Я оформил каждое задание в отдельной функции. Пожалуйста, перед сдачей проверь на правильность выполнения т.к. у меня нет среды разработки и компилятора)) Перепрофилировался в джаву с питоном))
<span>Readln(a,b);
mu:=0;
Repeat
mu:=mu+a;
Dec(b);
Until b=0;
Writeln(mu)<span>;</span></span>