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

[Гость]

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

[Tan]

vect:=random(30);

Так как ты работаешь с одномерным массивом то необходимо указывать на элемент вектора, то есть например vect[i] := random(30);
В моём понимании это так :

uses crt;
const n=99;
var
  vect : array [0..n] of integer;
  i: longint;
  amount : integer;
begin
  Clrscr;
  randomize;
  for i:= 0 to n do vect[i]:=i;
  i := n;
 amount := 0;
 while i >= 0 do
 begin
   if amount mod 6 = 0 then writeln;
   write (vect[i]:3);
   i := i - 1;
   amount := amount + 1;
 end;
   readkey;
end.

Сообщение отредактировано: Tan - 25.05.2007 22:32