GAECHKA
Твоя помощница в решении задач

Заменить элементы первого и третьего рядков матрицы на 0

дана матрица W=8 15 7 9
16 -2 1 1
2 4 8 3
12 -3 5 6
вывести ее на экран, заменить элементы первого и третьего рядков на 0. Вывести переделанную матрицу.
Буду благодарен, а то что-то не много завис. Пропустил лекции и все.
0
вопрос задан

Источник


1 ответ
const n=4;
var W:array[1..n,1..n] of integer=((8,15,7,9),
                                   (16,-2,1,1),
                                   (2,4,8,3),
                                   (12,-3,5,6));
begin
writeln('Исходная матрица');
for var i:=1 to n do
 begin
  for var j:=1 to n do
  write(W[i,j]:4);
  writeln;
 end;
for var i:=1 to n do
if odd(i)then
for var j:=1 to n do W[i,j]:=0;
writeln('Замена элементов нечетных строк на 0');
for var i:=1 to n do
 begin
  for var j:=1 to n do
  write(W[i,j]:4);
  writeln;
 end; 
end.