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

[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 20:44

[ShadowWatcher]

1

Код

Const
 SIZE = 10;
Var
 i:Integer;
 Data:Array[1..SIZE] Of Integer;
Begin
 For i:=1 To SIZE Do
   ReadLn(Data[i]);
 For i:=1 To SIZE-1 Do
   If (Data[i] Mod 2 = 1) Then
     If (Data[i + 1] Mod 2 = 1) Then
     Begin
       WriteLn('Answer: ',i);
       Break
     End
End.

2)

Код

Const
 SIZE = 10
Var
 i:Integer;
 a:Array[1..SIZE] Of Double;
 k1,k2:Double;
Begin
 For i:=1 To SIZE Do
   ReadLn(Data[i]);
 Write('Enter K1: ');
 ReadLn(k1);
 Write('Enter K2: ');
 ReadLn(k2);
 For i:=1 To SIZE Do
   If (Data[i] > 0) Then
     Data[i] := Data[i] - k1
   Else
     Data[i] := Data[i] - k2;
 For i:=1 To SIZE Do
   WriteLn(Data[i])
End.

[ShadowWatcher]

Опять мы, volvo не разминулись