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

[Predator04]

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

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

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

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

[Predator04]

Начало второй задачи.

Код

var
   A array[1..x,1..y] of real
   Max,Min:Real;
   i,j,Str,Sto:integer
   Max:=A[1,1];
   Min:=A[1,1];
   Str:=1;
   Sto:=1;
   for i:=1 to x do
   for j:=1 to y do
begin
       if A[i,j]>Max then
begin
       Max:=A[i,j];
       Str:=i
end;
       if A[i,j]<Min then
begin
       Min:=A[i,j];
       Sto:=j
end;
end;

Сообщение отредактировано: Predator04 - 13.10.2005 18:48