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

[Predator04]

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

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

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

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

[Romtek]

1. никогда не объявляй имена глобальных переменных, что и локальные.
2. переменные цикла НИКОГДА не объявляй глобальными. Это ведёт к необъяснимым ошибкам.
3. переменной Res не задано начальное значение. Это ведёт к необъяснимым ошибкам. Твоё счастье, что компилятор позаботился об обнулении переменной. Это верно лишь для некоторых типов...

Итак, правильным кодом будет

Program zada4a1;

Const 
    C =   5;
    Max =   10;

Var 
    M :   array [0..Max] Of Integer;
    Result :   Integer;

Procedure InputMass(Var a : Array Of integer);
var
     i: integer;
Begin
    Randomize;
    Write ('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);
var
     i: 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 (M);
    Calculate (M, Result);
    WriteLn;
    WriteLn ('Kol-vo elementov ===> ', Result);
    readln;
End.