Заполнить двумерный массив NxN случайными числами из интервала [-10;10], найти максимальный элемент в массиве и удалить строку, в которой находится этот элемент
Заполнить двумерный массив NxN случайными числами из интервала [-10;10], найти максимальный элемент в массиве и удалить строку, в которой находится этот элемент
Гость
Ответ(ы) на вопрос:
Гостьprogram gulkakh;
const n=5;
var a:array[1..n,1..n] of integer;
i,j,k,max,stroka:integer;
begin
writeln('Исходная матрица:');
for i:=1 to n do
for j:=1 to n do begin
a[i,j]:=random(20)-10;
write(a[i,j],' ');
if j=n then writeln;
end;
stroka:=1;
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do begin
if max
Не нашли ответ?
Похожие вопросы