Есть ли элемент, удовлетворяющий условию на 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.



Просмотров: 1220
10.02.2015, 10:47 -

Категория: Статьи » Программирование » Pascal