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

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 )

паскаль, одномерный массив

var a: array [1..6] of integer; i, max: integer;

begin

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

max: =a[1];

for i: =1 to 6 do

if a[i]> max then max: =a[i];

writeln(max); readln; end.

4 клетки вниз и 7 вправо