Pascal 1. проверить, что в массиве все элементы положительны. 2. проверить, что все элементы массива равны друг другу. 3. проверить, есть ли в массиве элемент, равный заданному значению

var

  a : array [1..100] of real;

  n, i : integer;

begin

  read (n);

  for i : = 1 to n do read (a[i]);

  for i : = 1 to n do

    if a[i] < = 0 then

    begin

      writeln ('no');

      readln;

      halt;

    end;

  writeln ('yes');

  readln;

end. 

   

var

  a : array [1..100] of real;

  n, i : integer;

  o : real;

begin

  read (n);

  for i : = 1 to n do read (a[i]);

  o : = a[1];

  for i : = 2 to n do

    if a[i] < > o then

    begin

      writeln ('no');

      readln;

      halt;

    end;

  writeln ('yes');

  readln;

end. 

   

var

  a : array [1..100] of real;

  n, i : integer;

  x : real;

begin

  read (n);

  for i : = 1 to n do read (a[i]);

  read (x);

  for i : = 1 to n do

    if a[i] = x then

    begin

      writeln ('yes');

      readln;

      halt;

    end;

  writeln ('no');

  readln;

end. 

   

   

{$r+,s+,q+}  uses  sysutils;   const r=1000; type mas= array  [0..r]  of integer; var  a: mas;   en,n: integer;   x,y,z,q,w: char; function push(n: integer): string; begin   a[en]: =n;   en: =en+1;   push: ='ok'; end; function pop(): integer; begin   en: =en-1;   pop: =a[en];   a[en]: =0; end; function back(): integer; begin   back: =a[en-1]; end; function size(): integer; begin  size: =en; end; function clear(): string; begin   en: =0;   clear: ='ok'; end; function exit(): string; begin  exit: ='bye'; end; begin   en: =0;   repeat     read(x);     if x='p' then    begin       read(y);       if y='u' then      begin         read(z,q,w);         readln(n);         writeln(push(n))      end else begin         readln(z);         writeln(;       end;     end;     if x='b' then    begin       readln(y,z,q);       writeln(;     end;     if x='s' then begin       readln(y,z,q);       writeln(;     end;     if x='c' then begin       readln(y,z,q,w);       writeln(;     end;     if x='e' then begin       readln(y,z,q);       writeln(;     end;   until x='e'; end.

program t;

var

a,c: real;

i: integer;

begin

i: =1;

a: =1000;

write('1');

while(i< > 6) do

  begin

  a: =a+a*(2*0.01);

  inc(i);    

  end;

writeln('спустя ',i,' месяцев =',a: 4: 2);

a: =1000;

i: =1;

write('2');

while(true) do

  begin

  a: =a+a*(2*0.01);

  inc(i);

  if(a> 1200)then begin writeln('через ',i); break; end;

  end;

a: =1000;

c: =0;

i: =1;

write('3');

while(true) do

  begin

  c: =a*(2*0.01);

  a: =a+c;

  inc(i);

  if(c> 50) then begin writeln('через ',i,' месяцев'); break; end;

  end;

 

end.