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.