Question

Написать программу, которая проверяет, находится ли введенное с клавиатуры число в массиве.

Массив должен вводиться во время работы программы. (Pascal ABC)

Answer 1

const n=8;

var a: array[1..n] of integer;

c,i: integer;

f: boolean;

begin

f:=false;

writeln('введите массив из ',n,' элементов:');

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

write('введите число: ');

read(c);

for i:=1 to n do if a[i]=c then begin

f:=true;

break;

end;

if(f) then write('введенное число находится в массиве')

else write('введенное число не находится в массиве');

end.