Народ спасите!!!!! я не черта не знаю Паскаль, а мне дали задачи
1)Дан целочисленный массив размера N. Проверить, чередуются ли в нем четные и нечётные числа. Если чередуются, то вывести 0, если нет, то вывести порядковый номер первого элемента, нарушающего закономерности
2)Дан вектор B=(b1,b2,...,bn).Найти номер последнего отрицательного элемента.Найти сумму элементов кратных данному K.
| М | Название должно быть информативным. Я исправил. Потом буду закрывать и удалять |
По первой вот так можно:
i:=1;
while (i<=n) and (((x[i] xor i xor x[1]) and 1)=1) do inc(i);
if i>n then i:=0;
writeln (i);
2.
for i:=1 to n do
begin
if b[i]<0 then
nomer:=i;
end;
sum:=0;
for i:=1 to n do
begin
if b[i] mod k = 0 then
sum:=sum+b[i];
end;