Вопрос по информатике:
Помогите решить В заданной матрице заменить К-ю строку и L-й столбец нулями, кроме элемента, расположенного на их пересечении.
- 02.01.2018 06:15
- Информатика
- remove_red_eye 8620
- thumb_up 42
Ответы и объяснения 1
var k,l,i,j,m:integer;
a:array[1..10,1..10] of integer;
begin
randomize;
for i:=1 to 10 do
for j:=1 to 10 do
a[i,j]:=random(10)-5;
for i:=1 to 10 do
begin
for j:=1 to 10 do write(a[i,j]:5);
writeln;
end;
write('K=');
readln(k);
write('L=');
readln(l);
m:=a[k,l];
for i:=1 to 10 do
for j:=1 to 10 do
if k=i then a[i,j]:=0 else if l=j then a[i,j]:=0;
a[k,l]:=m;
for i:=1 to 10 do
begin
for j:=1 to 10 do write(a[i,j]:5);
writeln;
end;
end.
- 03.01.2018 19:48
- thumb_up 27
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.