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

[Predator04]

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

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

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

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

[AruNimotsi]

Код

var
  A array[1..x,1..y] of real
  Max,Min:Real;
  i,j,Str,Sto:integer
 
BEGIN // обычно бегин ставят в начале проги и поаккуратней с синтаксисом

 
for i:=1 to x do   // затем надо бы задать сам массив
  for j:=1 to y do
   readln(A[i,j]);


  Max:=A[1,1];
  Min:=A[1,1];
  Str:=1;
  Sto:=1;

for i:=1 to x do
  for j:=1 to y do
    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.

дальше помочь не могу - некоректное условие если кратны - ЧЕМУ???
да и вообщемто я думаю остаток программы сможешь и сам дописать
не исключаю ошибок и в моем тексте однако паскаля под рукой нету писал в нотепаде а сам не програмил лет шесть уж...