Дано : равномерный массив а[n] найти количество отрицательных элементов массива

Const
  n=16;
var
  x:array[1..n] of integer;
  i,k:integer;
begin
  Randomize;
  Writeln('Элементы массива');
  k:=0;
  for i:=1 to n do
  begin
    x[i]:=Random(51)-25;
    Write(x[i]:4);
    if x[i]<0 then Inc(k)
  end;
  Writeln;
  Writeln('Количество отрицательных элементов равно ',k);
end.

Тестовое решение:
Элементы массива
   3 -14  -7  15  10  12 -11 -13 -21 -13  13 -17   9  -7 -24  20
Количество отрицательных элементов равно 9

J:=0;
For I:=1 to n do
 If a[I]<o then
j:=j+1;
writeln (j);
 End.

Удивляюсь, как она  у меня заработала)) хаха

 

program example;
var x,y,z,a,b,c,i,k,l:integer;

begin
writeln ('Введите три числа');
write ('x = '); readln (x);
write ('y = '); readln (y);
write ('z = '); readln (z);

 

if ((x mod 3) or (x mod 2)) =0
then i:=x else i:=0;
if i<>0 then a:=1;

if ((y mod 3) or (y mod 2)) =0
then k:=y else k:=0;
if k<>0 then b:=1;

 

if ((z mod 3) or (z mod 2)) =0
then l:=z else l:=0;
if l<>0 then c:=1;

 

writeln ('Количество четных чисел, делящихся на три, равно ',a+b+c);
writeln ('Сумма четных чисел, делящихся на три, равна ',i+k+l);

end.

язык Python

 

import sys 

# получаем от пользователя цену 

price = raw_input("Введите цену товара: ")

#преобразуем строку с ценой к числу 

try:

  price = int(price)

except:

  # если он ввел что-то не то сообщаем об этом и выходим 

  print "Ошибочное значение цены"

 

  sys.exit(1) 

 

 

# получаем от пользователя кол-во

cnt = raw_input("Введите кол-во товара: ")

#преобразуем строку с кол-вом к числу 

try:

  cnt = int(cnt)

except:

  # если он ввел что-то не то сообщаем об этом и выходим 

  print "Ошибочное значение кол-ва"

  sys.exit(1) 

#выводим результат на экран

print "Стоимость товара:", price*cnt