Запишите условия, которые используют в программе при Поиске элементов массива

1) x > 0

2) x >= 0

3) ( x mod 2 = 0 ) and ( x <> 0 )

4) x mod 2 <> 0

5) x mod 10 = 0

6) ( abs(x) >= 10 ) and ( abs(x) < 100 )

7) ( x mod 2 = 0 )  and ( x >= 10 ) and ( x < 100 )

8) ( x >= 100 ) and ( x < 1000 )

буфер обмена,перетаскивание,сохранение в файл

1)

var

i,k: integer;

a: array [1..14] of integer;

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

a: array [1..14] of integer;

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.