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

Question

Информатика

Рима

13 июня, 08:48

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

+1

Ответы (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.