Регистрация
7400316
08.04.2023 12:12
Информатика
Есть ответ 👍

Двумерный массив а[m,n] заполнить целыми числами, определяемыми функцией а[i,j]=i*j*m*rnd. определить номер максимального элемента массива.

261
350
Посмотреть ответы 2

Ответы на вопрос:

AlexandroGuerin
AlexandroGuerin
4,5(97 оценок)

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.

так?

Ира1656
Ира1656
4,6(1 оценок)
Точно из троичной, ибо в ней алфавит составляет числа 0,1,2 (поэтому она и троичная)

Популярно: Информатика