Решить на турбо паскале дан одномернный массив из 10 целых чисел.вывести массив на экран в строчку.а так же вывести на экран номер первого элемента, равного нулю, и нуль при отсутсвии такого элемента в массиве. ниже рекомендованный вид экрана во время выполнения программы, для самопроверки результата(данные, введенные пользователем, выделены полужирным шрифтом). дан одномерный массив сотоящий из 10 элементов.вывод на экрна номер первого элемента, равного нуляю, и нуль при отсутсвии такого элемента в массиве. ввод элеентов массива введите 1 элемент массива: 0 введите 2 элемент массива: 1 и т.д. до 9 очистка экрана 0 1 2 3 4 5 6 7 8 9 номер нулевого элемента массива: 1

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.

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.