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>
Алгоритм -это последовательность действий.Пример:Открывание двери.1 Взять ключ Подойти к двери.Засунуть ключ в замочную скважину.Повернуть ключ против часовой стрелке.И все)
D:\Новинки \Кино\2015\Фантастика\<span>На марсе.mpg</span>
На сколько информация доступна пользователю и на сколько она ему понятна
9,
т.к. day:= k выполнятеся одни раз в случае Dat[9]:= 7