Ребят, помогите, очень срочно нужна помощь в информатике) Задание: Пускай нам задан масив...

Question

Ребят, помогите, очень срочно нужна помощь в информатике) Задание: Пускай нам задан масив размером [1...12] и некоторые число х. Нужно определить, содержит даный масив, число х. Если да, то на каком месте?

Answer 1

program numbers;

var x, i, c: integer;

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

begin

c:=-1;

write('Введите массив.');

for i:=1 to 12 do readln(a[i]);

writeln('Введите число для сравнения');

readln(x);

for i:=1 to 12 do if a[i]=x then c:=i;

if c=-1 then write('Массив не содержит введённое число') else write('Число стоит на ',c,' месте.');

end.

Answer 2

Program n_1;

var a: array [1..12] of integer; i, n, x:integer;

begin

   n:=-1;

   for i:=1 to 12 do read(a[i]);

   readln(x);

   for i:=1 to 12 do if x=a[i] then begin n:=i; writeln('Yes'); Writeln(n); break; end;

   if n=-1 then writeln('No');

end.