Задача о матрице в Паскале. Помогите

[Arator]

Задача о матрице в Паскале. Помогите

Добрый день! Спасибо что зашли на мою тему! У меня задание которое не могу решить, помогите пожалуйста!:tehnari_ru_837:

Создать матрицу 3 × 4 из случайных чисел из диапазона [-20; +20]. Вычислить: количество положительных чисел, количество отрицательных чисел.

 

[Vladimir_S]

У меня задание которое не могу решить

А Вы, по всему судя, и не пытались, потому что решать тут ровно нечего. Упражнение для начинающих школьников.
Если я не прав - выложите результаты Ваших попыток, тогда будет другой разговор. Предметный.

 

[Arator]

Я просто на первом курсе и учу АЗЫ, и с программой не могу разобраться...

 

[Vladimir_S]

Я просто на первом курсе и учу АЗЫ, и с программой не могу разобраться...

Ладно, . Ловите:

Var
 A:Array[1..3,1..4] of Integer;
 i,j,Npos,Nneg:Byte;
Begin
 Randomize;
 Nneg:=0;
 Npos:=0;
 For i:=1 to 3 do
  begin
   For j:=1 to 4 do
    begin
     A[i,j]:=20-Random(40);
     If A[i,j]>0 then Inc(Npos);
     If A[i,j]<0 then Inc(Nneg);
     Write(A[i,j]:8);
    end;
   Writeln;
  end;
 Writeln;
 Writeln(Npos,' positive and ',Nneg,' negative');
 Readln
End.

 

[Arator]

Спасибо вам огромное!!!!