Рандомное заполнение массива

[ac1d_buRn]

Хочу вывести массив заполненный рандомно...

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a:array[1..100] of integer;
     i:integer;

begin
  randomize;
  for i:=1 to 100 do
  a[i]:=random(10);
  writeln(a);
  readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.

Выдаёт: [Error] Project2.dpr(18): Illegal type in Write/Writeln statement

[Манжосов Денис :)]

WriteLn(a[i]);

[profi]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a:array[1..100] of integer;
     i:integer;

begin
  randomize;
  for i:=1 to 100 do
begin
  a[i]:=random(10);
  writeln('a[',i,']=',a[i]);
end;
  readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.

[ac1d_buRn]

А как придать вид:

2 3 4 5
3 5 7 9
3 5 1 6
4 6 1 8

?

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a:array[1..4,1..4] of integer;
    i,j:integer;

begin

  randomize;
  for i:=1 to 4 do
    for j:=1 to 4 do
  begin
    a[i,j]:=random(10);
    writeln(a[i,j]:2);
  end;
  readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.

[Скарам]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a:array[1..4,1..4] of integer;
    i,j:integer;

begin

  randomize;
  for i:=1 to 4 do
begin
    for j:=1 to 4 do
  begin
    a[i,j]:=random(10);
    write(a[i,j]:2);
    write(" ");
  end;
writeln();
end;
  readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.

вроде так)

[vlad00777]

Чтоб отформатировать текст надо задать параметры
write(a[i,j]:2);
2-это количество целой части
если будет так:
write(a[i,j]:2:3);
2-это количество целой части 3-кол-во дробной

[Вавел из ГМТУ]

У нас Integer....

ТС, загляни в эту тему, я там дал хорошо прокоментированый и понятный код:

http://programmersforum.ru/showthrea...174#post363174

[ac1d_buRn]

Скарам, что это write(" "); ?
Вавел из ГМТУ, посмотрел...

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a:array[1..4,1..4] of integer;
    i,j:integer;

begin

  randomize;
  for i:=1 to 4 do
  writeln;
  begin
     for j:=1 to 4 do
      begin
        a[i,j]:=random(10);
        writeln(a[i,j]:2);
      end;
  end;
  readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.

Выводит только 4 цифры в столбик...

[Вавел из ГМТУ]

Вот слепил из той темы.

Var
  A : Array [1..4, 1..4] of Byte; // Массив основной.
  i, j : Byte; // Индексы массива.

Begin
// Заполняем основной массив.
Randomize;
For i := 1 To N Do
  For j := 1 To M Do A[i,j] := Random(10);

// Выводим основной массив на экран.
For i := 1 To N Do
  Begin
    For j := 1 To M Do Write(A[i,j], ' ');
    Writeln;
  End;

Readln;
End.

writeln(a[i,j]:2); - у нас целочисленый тип. Не надо форматировать.

[ac1d_buRn]

Отлично, теперь вид приятный =)
writeln(a[i,j]:2); - я понял что целочисленый, просто отступ сделать хотел =)

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a:array[1..4,1..4] of integer;
    i,j:integer;

begin

  randomize;
  for i:=1 to 4 do
    for j:=1 to 4 do
    a[i,j]:=random(10);

  for i:=1 to 4 do
    begin
      for j:=1 to 4 do
      write(a[i,j],' ');
      writeln;
    end;
  readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.