Выбираешь объект круг и зажимая кнопку Shift рисуешь круг потом стери половину и получится идеальный полукруг
1) 3
2) ввод элементов массива с клавиатуры
3) mod - это остаток от деления, т.к. каждый элемент массива получен как результат * индекса на 3, то каждый элемент кратен 3. А значит mod вернет 0.
ответ: 4
4) mas: array [1..100] of real;
5)
var
d: array [1..20] of integer;
i,k:integer;
begin
k:=0;
write ('В массиве: ');
for i:=1 to 20 do begin
d[i]:=10*random()-15;
write(d[i],' ');
if d[i]>=0 then k:=k+1;
end;
writeln(' есть ',k,' положительных чисел');
end.
<span>var x,y,a:integer;</span>
<span>c:boolean;</span>
<span>begin</span>
<span>readln(x); {считываем}</span>
a:=1;
<span>repeat</span>
writeln(a,' попытка выбор компьютера пал на - ');
<span>y:=random(x)+1; {задаем промежуток рандомом}</span>
write(y);
<span>if x=y {сравниваем} then c:=true; {выходим из цикла в случае успеха}</span>
<span>until c; {если с=true тогда выход из цикла, иначе крутимся дальше}</span>
writeln('Компьютер сделал ',a,' попыток.');
<span>end.</span>
<span>
</span>
Более доработанная и понятная, если возникают какие-то вопросы - пиши в личку.
<span>Program prim;
</span>
<span>var n,i: </span>integer;
<span><span>begin
</span></span>
writeln ('Введите число n', n);
<span>
readln (n);
</span>
<span>for i:=</span>1 to <span>n do write (i);</span>
<span>
end.</span>