Сформировать целочисленный массив (6*6), заполненный случайным образом числами из промежутка [-50;50] ПАСКАЛЬ! ПОМОГИТЕЕ

+ 0 -

YouAreMyHope

18 авг. 2013 г., 14:23:29 (10 лет назад)

Program Massiv;

Uses Crt;

var i,j:integer;

       a: array[1..6,1..6] of integer;

begin

     clrscr;

      randomize;

      for i:=1 to 6 do
           begin
               for j:=1 to 6 do
                   begin
                       a[i,j]:=random(101)-50;
                 end;
       end;

 for i:=1 to 6 do
      begin
        for j:=1 to 6 do
            begin
              write(a[i,j]:3);
           end;
 writeln;
end;

readkey;

end.

+ 0 -

Mamed55

18 авг. 2013 г., 16:44:21 (10 лет назад)

Program Z1;

uses crt;

const N=6;

var A:array [1..N,1..N] of integer;

       i,j:integer;

begin

ClrScr;

for i:=1 to N do

begin

for  j:=1 to N do

begin

A[i,j]:=Random(101)-50;

write (A[i,j]:4);

end;

writeln;

end;

end.