задачи с массивом Опции

[Guest]

Меня моя девушка попросила решить задачки, а я в Паскале ничего не соображаю. Если не трудно подскажите, как их решить.
1.
Дан массив целых чисел. Определить, есть ли в нем хотя бы одна пара
"соседних" нечетных чисел. В случае ответа определить первый номер
элементов первой из таких пар.
2.
Дан массив действительных чисел. Из всех положительных элементов вычесть элемент с номером k1, из остальных - с номером k2.

[volvo]

Ну сколько же можно задавать одни и те же вопросы? Пользуйтесь поиском!
Задача №1

Код

const
 n = 10;
 a: array[1 .. n] of integer =
   (1, 2, 0, 7, 5, 6, 7, 8, 3, 4);

var
i: integer;

begin
 for i := 2 to n do
   if not Odd(a[i - 1] + a[i]) and (a[i - 1] * a[i] <> 0) then
     begin writeln('index = ', i - 1); halt end;
 writeln('not found')
end.

Задача №2

Код

const
 n = 10;
 k1 = 8; k2 = 5;
 a: array[1 .. n] of real =
   (1, 2, -1, -7, 5, -6, 7, 8, 3, 4);

var
i: integer;

begin
 for i := 1 to n do
   a[i] := a[i] -
     (byte(a[i]>=0)*a[k1] + byte(a[i]<0)*a[k2]);

 for i := 1 to n do
   write(a[i]:8:2);
 writeln
end.

Сообщение отредактировано: volvo - 6.12.2004 16:44