Задача номер 1: как найти наименьший элемент квадратной таблицы и заменить его нулем. Задача номер 2: как в прямоугольной таблице заменить все элементы их квадратами Напишите на паскале пожалуйста progran const и т.д

Задача номер 1: как найти наименьший элемент квадратной таблицы и заменить его нулем. Задача номер 2: как в прямоугольной таблице заменить все элементы их квадратами Напишите на паскале пожалуйста progran const и т.д
Гость
Ответ(ы) на вопрос:
Гость
Задание №1 program z1; const n = 3;   m =3; var a:array[1..n, 1..m] of integer; i,j,min:integer; begin //Заполним матрицу и найдем минимальное   min:=20;   for i:=1 to n do begin     for j:=1 to m do begin       a[i,j]:=random(41)-20;       if a[i,j] < min then min:=a[i,j];       write(a[i,j]:4);     end;   writeln;   end;   writeln; // меняем минимальное на 0 и выводим матрицу   for i:=1 to n do begin     for j:=1 to m do begin          if a[i,j] = min then a[i,j]:=0;       write(a[i,j]:4);     end;   writeln;   end;   end. Тестовое решение для 1 задачи:   18  20 -10   19 -14 -17   -4 -17 -15   18  20 -10   19 -14   0   -4   0 -15 Задание №2 program z2; const n = 3;   m =5; var a:array[1..n, 1..m] of integer; i,j,min:integer; begin //Заполним матрицу   for i:=1 to n do begin     for j:=1 to m do begin       a[i,j]:=random(41)-20;       write(a[i,j]:5);     end;   writeln;   end;   writeln; // меняем все элементы на их квадраты и выводим матрицу   for i:=1 to n do begin     for j:=1 to m do begin         a[i,j]:=sqr(a[i,j]);       write(a[i,j]:5);     end;   writeln;   end;  end. Тестовое решение для задания №2    15    8   18  -17   10   -19   17    1   20  -15   -20  -13  -11   -3   17   225   64  324  289  100   361  289    1  400  225   400  169  121    9  289
Не нашли ответ?
Ответить на вопрос
Похожие вопросы