Двухмерный массивы

[Naive]

Сообщение от psycho-coder

Randomize();
a[i, j] := Random(100) - 100; // произвольные значения в диапазоне [-99; +99]

это от -100 до -1...

a[i, j] := Random(201) - 100;

[fatorial]

ребят сделайте пожайлуста задачу

[NSvirus]

Сообщение от psycho-coder

Оо Это Вы откуда такое вычитали?
Вполне достаточно

Randomize();
a[i, j] := Random(100) - 100; // произвольные значения в диапазоне [-99; +99]

И в каком это случае здесь будет положительное число вообще, а?

[Niro]

Держи

uses crt;
   const x=4; y=4;
   var mas: array [1..x,1..y] of integer;
       rez: array [1..4] of real;
       i,j: integer;
       s1: real;
BEGIN
   randomize;
   for i:=1 to x do
   for j:=1 to y do
    begin
      mas[i,j]:=random(10);
      write(mas[i,j],' ');
      if j=y then writeln;
    end;

   for i:=1 to y do
     s1:=s1+mas[1,i];
   rez[1]:=s1/y;
   s1:=0;
   for i:=1 to y do
     s1:=s1+mas[x,i];
   rez[2]:=s1/y;
   s1:=0;
   for i:=1 to x do
     s1:=s1+mas[i,1];
   rez[3]:=s1/x;
   s1:=0;
   for i:=1 to x do
     s1:=s1+mas[i,y];
   rez[4]:=s1/x;

   writeln('---------------------------');
   for i:=1 to 4 do
    writeln(rez[i]:0:2);
   readln;
END.

[psycho-coder]

И в каком это случае здесь будет положительное число вообще, а?

это от -100 до -1...

ну, лоханулся. А читать выше Вы не пробовали?!

[NSvirus]

Сообщение от psycho-coder

ну, лоханулся. А читать выше Вы не пробовали?!

вторую страницу не увидел.