1. Б
3. Б
5. В
7. Б
8. Б
9. А
10. В
11. А
12. Г
13. В
14. А
15. А
16. Г
17. Г
18. В
19. Б, Д
20. Д, В
Честно не уверена, что это верно. Но думаю что-то да правильное есть
На биологии:растения,животные,клетки,
на математике:примеры,задачки
на географие:карты,мштабы,мореплавотилей
На информатике: как полбзоваться компом,создавать программыи сайты
Var a:array[1..100] of integer;
I,c,n:integer;
Begin
Readln(n);
For i:=1 to n do
Begin
Read(a[i]);
Write(a[i],' ');
If a[i]<0
Then c:=c+1;
End;
Writeln('кол-во отриц.=',c);
End.
var
s: real;
i, n: integer;
begin
i := 3;
readln(n);
while (i <= n) do
begin
s := s + (i - 1) / i;
inc(i);
end;
writeln(s);
end.
Вот рисунок схемы обработки информации