Одномерные массивы!!!!!

[SLAVIK_71]

Дана последовательность чисел среди которых имеется один 0, вывести на печать все числа до 0 включительно.

program p1;
uses crt;
var array......

[DM_bite]

program axaxaxaxxa;
var a: array [1..100] of integer;
     i: integer;
begin
for i:= 1 to 100 do
 begin
ReadLn(a[i]);
if a[i]=0 then break;
end;
for i:= 1 to 100 do
 begin
if a[i]<>0 then WriteLn(a[i]);
 end;
 WriteLn(0);
ReadLn;
end.

Первый класс, блин))

[Stilet]

Ну а дальше? Ты что хочешь чтоб тебе с нуля все написали? А методички почитать про цикл WHILE?

DM_bite

Не согласен:

последовательность чисел среди которых имеется один 0

т.е. нулем ввод не должен заканчиваться.

[DM_bite]

Ну а дальше? Ты что хочешь чтоб тебе с нуля все написали? А методички почитать про цикл WHILE?

Так там читать надо уметь...

[Олвин]

Все числа до нуля? DM_bite, там печатаются все кроме нуля. Нужно вот так:

for i := 1 to 100 do
 if a[i] <> 0 then
  writeln(a[i])
 else
  break;