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.

Answer 3

Программа на Turbo Pascal для решения данной задачи будет выглядеть примерно так:

program ArrayZeroElement;

var
  arr: array[1..10] of integer;
  i, zeroIndex: integer;

begin
  // Ввод элементов массива
  for i := 1 to 10 do
  begin
    write('Введите ', i, ' элемент массива: ');
    readln(arr[i]);
  end;

// Вывод массива на экран
  for i := 1 to 10 do
  begin
    write(arr[i], ' ');
  end;

// Поиск номера первого элемента, равного нулю
  zeroIndex := 0;
  for i := 1 to 10 do
  begin
    if arr[i] = 0 then
    begin
      zeroIndex := i;
      break;
    end;
  end;

// Вывод номера нулевого элемента массива
  if zeroIndex <> 0 then
    writeln('Номер нулевого элемента массива: ', zeroIndex)
  else
    writeln('Нуль при отсутствии такого элемента в массиве');
end.

После запуска программы пользователь будет приглашен ввести 10 элементов массива. Затем программа выведет массив на экран в строку и определит номер первого элемента, равного нулю, или выведет сообщение "Нуль при отсутствии такого элемента в массиве".