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

[Predator04]

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

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

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

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

[Predator04]

Уменя есть вариант первой задачи но он не работает.

Код

Program zada4a1;
Const
C = 5;
Max = 10;
Var
a : array[0..Max] of Integer;
i : Byte;
Res : Integer;

Procedure InputMass(Var a : array of integer);
begin
Randomize;
WriteLn('Zadannii massiv ==>');
For i := 1 to Max do
begin
a[i] := Random(10);
Write(a[i] : 3);
end;
end;

Procedure Calculate(a : array of Integer; Var Res : Integer);
begin
for i := 1 to Max do
if (a[i] mod 2) <> 0 then
if a[i] < C then
inc(Res);
end;

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