Двумерный массив n*n Опции

[Марина]

Ребята, помогите пожалуйста решить задачку:

Задать двумерный массив n*n.Посчитать число элементов больших, меньших, равных нулю.Вывести исходный массив элементов в виде таблицы и результаты вычислений.

[dushik]

Марин, это вам не в 7-ом классе случайно дали задачку такую?

Код

uses crt;
const
    n=10;
var
  mas:array[1..n,1..n] of integer;
  i,j,max,min,nol:integer;
begin
    clrscr;
    min:=0; max:=0; nol:=0;
    for i:=1 to n do
        begin
             for j:=1 to n do
                 begin
                      mas[i,j]:=random(20)-10;
                      if mas[i,j]>0 then max:=max+1
                      else if mas[i,j]<0 then min:=min+1
                      else nol:=nol+1;
                      write(mas[i,j],'|');
                 end;
             writeln;
        end;
    writeln;
    writeln('bolshe 0 - ',max);
    writeln('menshe 0 - ',min);
    writeln('ravnih 0 - ',nol);
end.

[Марина]

Огромное спасибо тебе.

Задачки такие дают у нас в политехе, но т.к. комьпютера не имею то есть сложности с освоением Паскаля и вобще в информатике я как "свинья в апельсинах"

[Марина]

После запуска программы выдаеться ошибка 201
в строчке
mas[i,j]:=random(20)-10;


что не так???

[trminator]

У меня все нормально работает. А что за ошибка - 201? Как она звучит на обычном английском?

Кстати первой строчкой программы неплохо бы поставить randomize; , иначе числа будут "недостаточно случайные" (при каждом запуске - одни и те же)

[dushik]

Марин, всегда пожалуйста )
Кстати я тоже учусь в политехникуме (НПТ), правда сейчас его переименовали в ВКИ (колледж информатики).
trminator, кстати тебе от меня спасиба Я всё мучался в двух догадках, никак не совмещая их:
1. Почему рандом выполняет своё действия только один раз при первом запуске, а во все последующие всё то же...
2. Нафига этот рандомайз, если и без этого работает...
А теперь что-то прояснилось Сэнк ;)