Помогите решить это в Паскале! ОЧЕНЬ НАДО, вопрос жизни и смерти, уже месяц бьюсь с ним... Все элементы с наибольшим значением в данной целочисленной квадратной матрице порядка n замените нулями, если эти элементы не принадлежа...
Помогите решить это в Паскале! ОЧЕНЬ НАДО, вопрос жизни и смерти, уже месяц бьюсь с ним...
Все элементы с наибольшим значением в данной целочисленной квадратной матрице порядка n замените нулями, если эти элементы не принадлежат первой или последней строкам.
Гость
Ответ(ы) на вопрос:
Гостьconst
n = 9;
var
a:array[1..n,1..n] of integer;
i,j,k,max: integer;
begin
Randomize;
Writeln('Исходная матрица');
max:=-100;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(51)-25;
Write(a[i,j]:4);
if max
Не нашли ответ?
Похожие вопросы