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

[Гость]

добрый день
вот задачка ест Дано 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
заранее благодарен.

[volvo]

var
  v: array[1 .. 20] of integer;
  i, j :integer;

begin
  for i := 1 to 20 do v[i] := i;

  j := 6; { Сколько чисел будет в строке }
  for i := 20 downto 1 do begin
    dec(j); write(v[i]:4); { при печати каждого числа уменьшаем счетчик чисел, 
                             которые осталось допечатать на этой строке }

    if j = 0 then begin { если осталось 0, то есть, напечатаны 6 чисел }
      j := 6; writeln; { то переустанавливаем счетчик опять на 6, и переводим строку }
    end
  end;
end.

Так?

Сообщение отредактировано: volvo - 25.05.2007 19:06