PASCAL . Прошу, безотлагательно надобно!!!Составить программку, которая в каждом столбце двумерного

PASCAL . Прошу, срочно надобно!!!Составить программку, которая в каждом столбце двумерного массива случайных чисел обретает меньший элемент и записывает его индекс в одномерный массив.

Задать свой вопрос
1 ответ
Const
n=10;m=8;
var
a:array[1..n,1..m]of integer;
b:array[1..m]of integer;
i,j,min:integer;
  begin
      for i:=1 to n do
         begin
             writeln;
                  for j:=1 to m do
                      begin
                          a[i,j]:=random(100);
                          write(a[i,j]:4);
                      end;
           end;
writeln;
for j:=1 to m do
   begin
       min:=a[i,1];
           for i:=1 to n do
                    if a[i,j]lt;min then
                         min:=a[i,j];
          b[j]:=min;
     end;
for i:=1 to m do
   write(b[i]:4);
end.
Дарина
Спасибо громадное! Можете еще с этой задачей посодействовать, пожалуйста? *Составить программку, которая в двумерном массиве случайных чисел элементы всех четных строк делает нулевым.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт