Дан двумерный массив размерностью 6 на 8, элементы которого находятся в диапазоне [-20,30]. Определить на каком месте находится минимальный элемент массива
2. Дан двумерный массив размерностью 6 на 8, элементы которого находятся в диапазоне [20,30]. Выведите на экран новый массив, полученный изменением исходного на одно и то же числа так, чтоб минимальный элемент нового массива стал равен 0.
3. Дан двумерный массив размерностью 6 на 8, элементы которого находятся в диапазоне [-20,30]. Найти сумму максимальных элементов каждого столбца
4. Дан двумерный массив размерностью 6 на 8, элементы которого находятся в диапазоне [-20,30]. Поменять местами минимальный и максимальный элементы массива. Новый массив вывести на экран.
pascal
Объяснение:
Задание 1
var
i, j, mini, minj: integer;
min: real;
a: array [1..6, 1..8] of real;
begin
min := 30;
for i := 1 to 6 do begin
for j := 1 to 8 do begin
a[i, j] := random(51) - 20;
Write(a[i,j]:6);
if a[i, j] <= min then begin
min := a[i, j];
mini := i;
minj := j;
end;
end;
WriteLn;
end;
WriteLn('Минимальный элемент A[',mini,',',minj,']=', min);
end.
Задание 2
var
i, j: integer;
min: real;
a: array [1..6, 1..8] of real;
begin
min := 30;
for i := 1 to 6 do begin
for j := 1 to 8 do begin
a[i, j] := random(11) + 20;
Write(a[i,j]:6);
if a[i, j] <= min then min := a[i, j];
end;
WriteLn;
end;
for i := 1 to 6 do
for j := 1 to 8 do
a[i, j] := a[i, j] - min;
WriteLn('Новый массив:');
for i := 1 to 6 do begin
for j := 1 to 8 do begin
Write(a[i,j]:6);
end;
WriteLn;
end;
end.