Ответ:
1. Найти в интернете желательно бесплатную антивирусную программу
2. Удостовериться, что программа загружается с официального сайта разработчика этой программы
3. Установить загруженную программу
4. Радоваться жизни
Объяснение:
10 Кбайт элементарная информатика!
Uses crt;
const Z=5;
var a:array [1..Z] of real;
x,k,n:integer;
begin
for x:=1 to Z do
begin
readln(a[x]);
if (x mod 2=1) and (a[x]>0) then inc(k);
if (x mod 2=1) and (a[x]<0) then inc(n);
end;
writeln('Положительных: ',k);
writeln('Отрицательных: ',n);
<span>end.</span>
Program ttt;
var i:integer;
begin
for i:=0 to 17 do
writeln(i);
end.
Ставишь курсор на полосу прокрутки, поднимаешь курсор вверх или вниз, вправо или влево, смотря какая она горизонтальная или вертикальная