Информационный объём флешки,дискеты,оптического диск (CD-ROM),DVD

Var money, cost,summa : real;
count : integer;
 tovar: string;
begin writeln('Введите исходные данные: ');
  writeln('Какой товар вы покупаете? ');
 readln(tovar);
  writeln('По какой цене? ');
 readln(cost);
  writeln('Сколько штук? ');
 readln(count);
  summa := cost*count; writeln('Ваш товар - ', tovar, '. Стоимость покупки: ',summa:0:2);  writeln('Сколько денег даете? ');
 readln(money);
  if money=summa then writeln('свободен, под расчёт') else if money > summa then writeln('Ваша сдача: ', money-summa) else writeln('Нужно добавить: ', summa-money,. ');
 end.

var n,i,c,m,p:integer;

begin

 m:=0;

 p:=0;

 writeln('Введите количество чисел.');

 readln(n);

 for i:=0 to n-1 do

 begin

   readln(c);

   if c < 0 then m:=m+1

   else if c = 0 then continue

   else p:=p+1;

 end;

 if p < m then writeln('Отрицательных чисел больше, чем положительных.')

 else if p > m then writeln('Положительных чисел больше, чем отрицательных.')

 else writeln('Равное количество положительных и отрицательных чисел');

end.

Объяснение:

Переменные:

n - количество чисел, i - счетчик цикла for, c - считанное значение, m - счетчик отрицательных чисел, p - счетчик положительных чисел.

Считаем, что "0" - ни положительное, ни отрицательное число.