Есть ли элемент, удовлетворяющий условию на Pascal
Есть ли элемент, удовлетворяющий условию...
const N = 10;
var
a: array [1..N] of integer;
K: integer;
IsFound: boolean;
begin
for var i:=1 to N do
a[i] := Random(15);
writeln('Элементы массива a: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
K := Random(15);
IsFound := False;
for var i:=1 to N do
if a[i] = K then
begin
IsFound := True;
break
end;
if IsFound then
writeln('Элемент ',K,' найден')
else writeln('Элемент ',K,' не найден')
end.
10.02.2015, 10:47 -
Категория: Статьи » Программирование » Pascal