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

Question

Информатика

Мира

28 марта, 23:25

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

+5

Ответы (1)

Знаете ответ на вопрос?

Иола · Answer 1

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.