Одномерные массивы, Помогите !!!!!!!!!!!!& Опции

[legion33]

Дан массив С, размерностью 50, тип данных у этого массива Integer, Условие ввода: в прямом порядке до первого отрицательного элемента. Условие вывода: Все элементы в три строки.

Массив я могу ввести до первого отрицательного числа, помогите с выводом его в 3 строки.
Желательно написать весь код этой програмки, если можно. Заранее спасибо !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[volvo]

Весь код приводить не буду. Ты и сам частично справился... То, что занимается выводом в 3 строки - вот так:

  { n - количество введенных элементов }
  k := (n div 3) + byte((n mod 3) > 0);
  for i := 1 to n do begin
    write(a[n]);
    if (i mod k) = 0 then writeln;
  end;

Романтик, ты флеймить наконец перестанешь или нет? Тебе же ясно сказано: в три строки, неужели не понятно, что 2 из них будут одинаковой длины, а третья - сколько останется. Или все 3 одинаковы.

[Романтик]

Романтик, ты флеймить наконец перестанешь или нет? Тебе же ясно сказано: в три строки, неужели не понятно, что 2 из них будут одинаковой длины, а третья - сколько останется. Или все 3 одинаковы.

Спасибо.но не понял я сначала.