Пользовательский интерфейс
Var i, k: integer;
a:array[1..100] of integer;
begin
k:=0;
for i := 1 to 100 do
begin
a[i]:=random(15)-7;
writeln(a[i]);
end;
for i := 1 to 100 do
if a[i]=5 then inc(k);
writeln(k);
readln
<span>end.</span>
Точный наброски измеритель чертежи
13) 2
14)1
15)3
16)1
17)2
18) 2,3,4,6
19) 1. - в, г, д
2.- а,б,в
20) 1.- а, г
2.- б,в
21) а
22) а
Циклическим называется алгоритм,предусматривающий повторения одних и тех же действий в зависимости от условия итераций.