Паскаль

[Freia]

Определить количество положительных и отрицательных элементов в матрице А размерностью m * n

[Sazary]

uses crt;
const m=4; n=4;
var
a : array[1..m,1..n] of integer;
i,j,pl,mn,nol : integer;
begin
clrscr;
{---}
randomize;
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
  a[i,j] := random(20)-10;
  write(a[i,j]:5);
  end;
 writeln;
 end;
writeln('--------');
{-----}
pl :=0;
mn :=0;
nol :=0;
for i:=1 to m do
  for j:=1 to n do
   if a[i,j]>0 then inc(pl)
   else if a[i,j]<0 then inc(mn)
   else inc(nol);

writeln('Polozhitelnyh: ',pl);
writeln('Otricatelnyh: ',mn);
writeln('Nulevyh: ',nol);
readln;
end.

[goblinyara]

код писать не буду - не ленитесь и пишите сами.... опишу алгоритм...
смотрите всю матрицу, при помощи 2-ух циклов, в первом идёте по строкам, а во втором - по столбцам, и в теле второго цикла проверяете, является ли число в данной ячейке матрицы отрицательным(т.е. меньше нуля), а после прохождения по всему циклу значение количества положительных считайте как (m*n - k1), где k1 - количество отрицательных элементов.

[goblinyara]

хых, не успел

[Freia]

Спасибо огромное ВАМ!!!

[Freia]

А что означает random(20)-10? что такое 20 -10 и почему 20 в скобках? Объясните пожалуйста?

[Sazary]

А что означает random(20)-10? что такое 20 -10 и почему 20 в скобках?

Функция random(n) возвращает случайное число от 0 до n-1.
random(20)-10 возвратит случ. число от -10 до +9

[noobster]

а как удалить сообщение?