Var Y: array [1..11] of integer;
var i, sum, n: integer;
begin
randomize;
for i:=1 to 11 do begin
Y[i]:=-10+random (21);
write (Y[i], ' ');
end;
sum:=0;
for i:=1 to 11 do begin
if (i mod 2<>0) and (Y[i]<0) then sum:=Y[i]+sum; //№1
if i mod 2<>0 then Y[i]:=Y[i]*Y[i]; //№2
if (i mod 2=0) and (Y[i]=1) then inc (n); //№3
end;
writeln;
writeln ('Сумма =', sum);
writeln ('Количество 1 на четных местах =', n);
<span>end.
</span>
..................................
1 условие
2 условие
3 действие
4 действие
5 действие
( Алгоритм If-elif-else)
Ответ 7212*2-1=33*3-2=77*3-3=2525*4-4=121121*5-5=721