Паскаль Как написать программу, которая уменьшала бы ВСЕ максимальные элементы в два раза?
Так?
max:=a[1,1];
if a[i,j] > max then
max:= a[i,j];
end;
max:= max div 2;
Просто в данном случае, уменьшает только один максимальный элемент и то не всегда выдает правильный ответ.(делю квадратную матрицу 2*2 с элементами: 2 4 6 8 выводит max=2)
Так?
max:=a[1,1];
if a[i,j] > max then
max:= a[i,j];
end;
max:= max div 2;
Просто в данном случае, уменьшает только один максимальный элемент и то не всегда выдает правильный ответ.(делю квадратную матрицу 2*2 с элементами: 2 4 6 8 выводит max=2)
More Questions From This User See All