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

Формулировка задачи:

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

Код к задаче: «Вывести на печатать все числа до нуля включительно - Turbo Pascal»

textual
uses
  crt;
 
const
  n = 13; {Количество чисел в последовательности}
 
var
  a: array [1..n] of integer;
  i, k: integer;
  fl: char;
 
label inp;
 
begin
  inp: ClrScr;
  write('Начальная последовательность'); writeln; writeln;
  for i := 1 to n do 
  begin
    a[i] := random(10); {Рандомный ввод чисел от 0 до 9 включительно}
    write(a[i]:4);
  end;
  writeln;
  writeln;
  for i := 1 to n do
    if a[i] = 0 then k := i; {сравниваем с 0 и запоминаем его позицию}
  for i := 1 to k do {выводим на экран все числа до 0}
    write(a[i]:4);
  writeln; writeln;
  readkey;
  writeln('Для повторного запуска программы введите 1');
  read(fl);
  if fl = '1' then goto inp;
end.

5   голосов, оценка 3.400 из 5


СОХРАНИТЬ ССЫЛКУ