Вывести на печать все числа до нуля включительно

@CamoSmile · Регистрация: 21.11.2009

Author24 — интернет-сервис помощи студентам

всем привет!
помогите решить задачку:
Дана последовательность чисел,среди которых имеется один ноль. Вывести на печать все числа до нуля включительно

@yanyk1n · 21.11.2009, 17:41

Pascal

uses crt;
var m:array[1..100]of integer;
i,n:integer;
begin
 clrscr;
 write('Введите размерность массива-> ');
 readln(n);
 for i:=1 to n do read(m[i]);
 readln;
 i:=1;
 while m[i]<>0 do
 begin
  write(m[i]:3);
  inc(i);
 end;
 write(m[i]:3);
 readln;
end.

@CamoSmile 1 / 1 / 0 Регистрация: 21.11.2009 Сообщений: 24
		1
	Вывести на печать все числа до нуля включительно 21.11.2009, 17:35. Показов 1921. Ответов 1 Метки нет (Все метки) всем привет! помогите решить задачку: Дана последовательность чисел,среди которых имеется один ноль. Вывести на печать все числа до нуля включительно 0

	21.11.2009, 17:41

Вывести на печать все числа до нуля включительно

Решение