заполнить двумерный массив NxN случайными числами из интервала [-10; 10], найти максимальный элемент в массиве и удалить строку, в которой находится этот элемент

Question

Дарья Кочетова

Информатика

30 августа, 20:09

заполнить двумерный массив NxN случайными числами из интервала [-10; 10], найти максимальный элемент в массиве и удалить строку, в которой находится этот элемент

+5

Ответы (1)

Знаешь ответ на этот вопрос?

София Михайлова · Answer 1

program example;

const n=6;

var

a:array[1 ... n, 1 ... n] of integer;

i, j, max, stroka:integer;

begin

randomize;

max:=-10;

stroka:=1;

writeln ('Сгенированная матрица:');

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i, j]:=random (21) - 10;

if max
max:=a[i, j];

stroka:=i;

end;

write (a[i, j],' ');

end;

writeln;

end;

writeln ('номер удаляемой строки-', stroka);

for i:=stroka to n-1 do

for j:=1 to n do

a[i, j]:=a[i+1, j];

writeln ('Матрица без строки:');

for i:=1 to n-1 do

begin

for j:=1 to n do begin

write (a[i, j],' ');

end;

writeln;

end;

end.