<html>
<head>
<title>table </title>
</head>
<body>
<table border="1" width="150" height="200"><span>
<tr>
</span><span> <td bgcolor="b5e61d">
</td></span><span>
<td bgcolor="a349a4"></td>
</span><span> <td bgcolor="ed1c24"></td></span><span>
</tr></span><span> </span><span>
<tr>
</span><span> <td bgcolor="3f48cc"></td>
</span><span> <td bgcolor="22b14c"></td>
</span><span> <td bgcolor="ffc90e"></td>
</span><span> </tr></span><span> </span>
<span> </table></span>
</body>
<span></html></span>
А где ты треки фасе будешь хранить?
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.
Примеры:
1.Информация в учебниках
2.Произведения Художественной литературы
3.Тексты,описывающие алгоритмы
4.мысленный образ объекта