Дан массив размерностью 10 вычислить количество отрицательных элементов

Question

Дан массив размерностью 10 вычислить количество отрицательных элементов

Comments

Паскаль? Числа с вводятся клавиатуры?

---

Да, паскаль. О том, что вводятся они с клавиатуры или нет не уточняется.

Answer 1

 var i,min:integer;
     a:array[1..10] of integer;
begin
  randomize;
  for i:=1 to 10 do     begin
      a[i]:=random(45)-22;
      write(a[i],' ');
    end;
    writeln;
  for i:=1 to 10 do     begin
      if a[i]<0 then min:= min+1;<br>       end;
      writeln('Количество отрицательных элементов:',min);
  end.