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

[Predator04]

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

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

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

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

[volvo]

А это зачем?

if -1*(n-i)=j then A[i,j]:=1;

? Для замены элементов побочной диагонали? Так оно не сработает, потому что n всегда больше i, а j отрицательным быть не может...

Вот правильный вариант:

for i:=1 to n do begin
  a[i, i] := 1; a[i, n-i+1] := 1;
end;