Проверить находиться ли в массиве данное числопаскаль)

Var a, b, i, n: integer; s: array [1..10000] of integer; begin read(n); for i: =1 to n do      read(s[i]); read(b); for i: =1 to n do     if s[i]=b then inc(a); if a< > 0 then write ('встречается') else write ('не встречается'); end.p.s. надеюсь на и лучший ответ.

Uses crt; const n=10; var a: array [1..n] of integer;     x,k,z: integer; begin       k: =0;       for x: =1 to n do       begin           write('a[',x,']: '); readln(a[x]);       end;       write('введите число: '); readln(k);       for x: =1 to n do             if a[x]=k then inc(z);       if z> 0 then  writeln('число ',k,' встречается в массиве ',z,' раз(-а).')             else writeln('число ',k,' не  встречается в массиве'); end.

1. треугольник будет существовать если будут выполнятся одновременно три неравенства: x + y > z x + z > y y + z > x программа: var x, y, z: real; begin   writeln('введите стороны треугольника x, y, z: ');   read(x, y, z);   if (x + y > z) and (x + z > y) and (y + z > x)    then writeln('треугольник существует')   else writeln('треугольник не существует'); end. 2. думаю, здесь излишни объяснения. программа: var x, y, z: real; begin   writeln('введите три числа: ');   read(x, y, z);   writeln('в интервале (1; 3) лежат числа: ');   if (x > 1) and (x < 3) then writeln(x);   if (y > 1) and (y < 3) then writeln(y);   if (z > 1) and (z < 3) then writeln(z); end. блок-схемы в приложении:

Пишу на delphi  (objectpascal): function summa(a,b: integer): string; var  a1,b1: integer; begin     //находим сумму первого числа a1: =(a div 1000)+((a div 100)mod 10)+((a mod 100)div 10)+(a mod 10); //находим сумму второго числа b1: =(b div 1000)+((b div 100)mod 10)+((b mod 100)div 10)+(b mod 10); //выясняем что больше if a1> b1 then              result: ='сумма цифр левого числа больше. оно равно: '+inttostr(a1)          else          result: ='сумма цифр правого числа больше. оно равно: '+inttostr(b1); end; procedure tform1.button1click(sender: tobject); begin //выполнение и вывод результата функции через  нажатие  кнопки label1.caption: =summa(strtoint(edit1.text),strtoint(edit2.text)); end;