вектор, корректирровкаа Опции

[Гость]

добрый день
вот задачка ест Дано 100 целых чисел. Распечатать их в обратном порядке по 6 чисел в строке. я то набрал

const n=99;
var  
  vect : array [0..n] of integer;
  i: longint;

begin
  randomize;
  for i:=0 to n do
    vect:=random(30);

  while i>=0 do begin
    writeln(vect[i] :5, vect[i-1] :5, vect[i-2] :5, vect[i-3] :5, vect[i-4] :5, vect[i-5] :5);
    i:=i-6;
  end;

  writeln(i);
  readln;
  read;
end.

но есть проблемка.. при [i]n mod 6 <>0
заранее благодарен.

[compiler]

неужели я не зарегистрировался?..
я могу писать с такими ошибками?..

еще n mod 6 <>0 читать (n+1) mod 6 <>0,
а vect :=random(30); , как vect[i] := random(30);...



Сообщение отредактировано: compiler - 25.05.2007 18:36