Написать программу в среде Delphi, которая проверяет находится ли введённое с клавиатуры число в массиве.
Program t_1; const size=100; var a:array[1..size] of integer; i,n,m,q:integer;begin readln(n); for i:=1 to n do read(a[i]); readln(m); for i:=1 to n do if a[i]=m then begin writeln('YES'); q:=1; break; end; if q=0 then writeln('NO')end.
Писал на мове Паскаль. Не знаю подойдет ли...
Хотя должно
не могли бы вы мне объяснять по какому принципу она работает
всё поняла как она работает