Ребят помогите пожалуйста решить задачку ** турбо паскале Дан одномернный массив из 10...

Question

Ребят помогите пожалуйста решить задачку на турбо паскале

Дан одномернный массив из 10 целых чисел.Вывести массив на экран в строчку.а так же вывести на экран номер первого элемента, равного нулю, и нуль при отсутсвии такого элемента в массиве.

Ниже приведен рекомендованный вид экрана во время выполнения программы, для самопроверки результата(данные, введенные пользователем, выделены полужирным шрифтом).

Дан одномерный массив сотоящий из 10 элементов.Вывод на экрна номер первого элемента, равного нуляю, и нуль при отсутсвии такого элемента в массиве.

Ввод элеентов массива

Введите 1 элемент массива: 0

Введите 2 элемент массива: 1 и т.д. до 9

Очистка Экрана

0 1 2 3 4 5 6 7 8 9

НОмер нулевого элемента массива: 1

Answer 1

uses crt;
const N=10;
var
  a : array [1..N] of integer;
  i, k: integer;
begin
  writeln('Ввод элементов массива: ');
  for i:= 1 to N do
  begin
    write('Введите ',i,' элемент массива: ');
    readln(a[i]);
  end;
  ClrScr;
  k:=0;
  for i:= 1 to N do
  begin
    if (a[i]=0) and (k=0) then k:=i;
    write(a[i]:4);
  end;
  writeln;
  if k=0 then writeln('Номер нулевого элемента массива: 0')
         else writeln('Номер нулевого элемента массива: ',k);
  readln;
  end.
        

Answer 2

uses crt;

var

a:array [1..10] of integer;

n,i:integer;

begin

for i:=1 to 10 do begin

write ('Введите ',i,' элемент массива: ');readln(a[i]);

end;

clrscr; 

for i:=1 to 10 do write (a[i],' ');

writeln; 

i:=0; 

repeat

i:=i+1; 

if a[i]=0 then n:=i else n:=0;

until (a[i]=0) or (i=10);

if n<>0 then writeln ('Номер нулевого элемента массива: ',n) else writeln (0);

readln;

end.