Определите к какой группе относятся следующие свойства​

кф(климатообразующие факторы):

1) широта местности или угол падения солн.лучей.

2)циркуляция атмосферы

3)рельеф

4) положение

5)подстилающая поверхность

6)океанские течения

program zd4;

uses crt;

type mas=array[1..20,1..20] of real;

var a: mas; g,b,i,j,n,m,nom1,nom2: integer; max: real;

begin

        clrscr;

        write ('введите размер массива: ');

        readln (n,m);

        write ('введите диапазон чисел в массиве: ');

        readln (g,b);

        randomize;

        for i: =1 to n do

                begin

                          for j: =1 to m do

                                  begin

                                            a[i,j]: =random(b-g)+g;

                                            write (a[i,j]: 5: 0,'  ');

                                  end;

                                  writeln;

                end;

        nom1: =1;

        nom2: =1;

        max: =a[1,1];

        for i: =1 to n do

            begin

                for j: =1 to m do

                        begin

                                  if a[i,j]> max then

                                      begin

                                        max: =a[i,j];

                                        nom1: =j;

                                        nom2: =i;

                                      end;

                        end;

            end;

        writeln ('максимальный элемент массива= ',max: 5: 0,' ,его координаты ','[',nom1,',',nom2,']');

readln;

end.

так?

ответ:

const

  di =   8;     // размерность массива, можно менять на любое другое   строки

  dj = 10;       // а здесь столбцы

var

  a: array [1..di, 1..dj] of integer;

  i, j, p: integer;

begin

  randomize;

  for i : = 1 to di do begin

    writeln;

    for j : = 1 to dj do begin

      a [i, j] : = random (21) - 3;

      write (a [i, j] : 3, ' ');

    end;

  end;

  p : = 1;

  for i : = 1 to di do begin

    if i mod 2 = 0 then           // если строка четная то пропускаем

      continue;

    for j : = 1 to dj do begin

      if a [i, j] < 0 then       // перемножаем только отрицательные значения

        p : = p * a [i, j];

    end;

  end;

  writeln;

  writeln ('произведение = ', p);

  readln;

end.

объяснение:

для считаем, что хотя бы одно требуемое число будет найдено. если таких чисел найдено не будет, то результат произведения будет равен 1.