Помогите с Pascal плизз!

[ангелина]

1.Дан одномерный массив K[N] где значения элементов массива задаются случайным образом. На экра вывести исходный массив и кол-во четных отрицательных чисел!
2.Осуществите циклический сдвиг компонентов заданного вектора A(n)вправо на две позиции, т.е. получите вектор A=(а(n-1),a(n),a(1),a(2),...a(n-2))
Помогите плизззз! ops:

[somewhere]

1.

Код: Выделить всё

For I:=1 to N do K[I] := random(255);
For I:=1 to N do If (K[I]<0) and (K[I] mod 2=0) do WriteLn(K[I]);

2.

Код: Выделить всё

tmp1 := K[N];
tmp2 := K[N-1];
For I:=N downto 3 do K[I]:=K[I-2];
K[1] := tmp2;
K[2] := tmp1;

[Хыиуду]

1 - так выводятся только сами нечетные отрицательные, а не исходый массив и их количество. Кстати, в вашем примере не выведется ниего, потому что числа задаются рандомом от 0 до 254, все неотрицательные. Лучше так:

Код: Выделить всё

count:=0;
for i:=1 to M do 
begin
   K[i]:=random(256)-128;
   write(K[i]:4);
   If (K[I]<0) and (K[I] mod 2=0) then inc(count);
end;
writeln;
writeln(count);