Если я неошибаюсь 2.ну я так думаю
Держи алгоритм, программу, как я понял уже дали
Const n=10; {Можно подставить любое число}
var a:array[1..n] of integer; i,s:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(8)+1; {Массив заполняется числами от 1 до 9}
write(a[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do
if (i mod 2)=0 then s:=s+a[i];
writeln(s);
end.
Ответ:
p:=random(...)+...
Объяснение:
... - это интервал который тебе нужен
Begin
writeln(' *');
writeln(' * *');
writeln(' * *');
writeln(' * *');
writeln(' * * *');
writeln(' * *');
writeln('*************');
writeln(' * *');
writeln(' * ***** *');
writeln(' * * * * *');
writeln(' * ***** *');
writeln(' ***********');
writeln('Фамилия');
end.