Две задачки, Задачи по масивам Опции

[Predator04]

Помогите кто может решить двезадачки

Задача №1
В одномерном массиве целых чисел определить количество нечетных элементов менших константы С.

Задача №2
Дано двухмерный массив действительных чисел. Определить номер строки, в которой находиться максимальное число, а также номер столбца, в котором находиться минимальное число массива. Если индексы кратные, то заменить диагональные элементы массива единицей.

Сообщение отредактировано: Predator04 - 8.10.2005 21:02

[volvo]

Во-первых, почему именно процедура? С функцией не было бы проще?

Function Calculate(var a : array of Integer): Integer;
var
  i: integer;
  res: integer;
begin
  res := 0;
  for i := 0 to Max do
    if Odd(a[i]) and (a[i] < C) then inc(Res);
  Calculate := res;
end;

А потом использовать вот так:

begin
InputMass(a);
WriteLn('Kol-vo elementov ===> ',Calculate(a));
end.

Ну, и потом: ты описываешь массив A как массив с индексами [0 .. Max], а при его вводе в процедуре Input почему-то нулевой элемент игнорируешь (да и в Calculate тоже)...