1.для матрицы 3* 3 обнулить все элементы с четным значением.результат вывести на экран 2.для матрицы 3*3 целых чисел найти индексы элементов с нулевым значением .результат вывести на экран. язык програмирования паскаль!
1. Для матрицы 3* 3 обнулить все элементы с четным значением. Результат вывести на экран. uses crt; const n=3; var a: array [1..n,1..n] of integer; x,y: integer; begin for x:=1 to n do begin for y:=1 to n do begin a[x,y]:=random(21)-10; write(a[x,y]:4); if a[x,y] mod 2=0 then a[x,y]:=0; end; writeln; end; writeln; for x:=1 to n do begin for y:=1 to n do write(a[x,y]:4); writeln; end; end.
2. Для матрицы 3*3 целых чисел найти индексы элементов с нулевым значением. Результат вывести на экран. uses crt; const n=3; var a: array [1..n,1..n] of integer; x,y: integer; begin for x:=1 to n do begin for y:=1 to n do begin a[x,y]:=random(21)-10; write(a[x,y]:4); end; writeln; end; writeln; for x:=1 to n do for y:=1 to n do if a[x,y]=0 then writeln(x,',',y); end.
uses crt;
const n=3;
var a: array [1..n,1..n] of integer;
x,y: integer;
begin
for x:=1 to n do begin
for y:=1 to n do begin
a[x,y]:=random(21)-10;
write(a[x,y]:4);
if a[x,y] mod 2=0 then a[x,y]:=0;
end;
writeln;
end;
writeln;
for x:=1 to n do begin
for y:=1 to n do
write(a[x,y]:4);
writeln;
end;
end.
2. Для матрицы 3*3 целых чисел найти индексы элементов с нулевым значением. Результат вывести на экран.
uses crt;
const n=3;
var a: array [1..n,1..n] of integer;
x,y: integer;
begin
for x:=1 to n do begin
for y:=1 to n do begin
a[x,y]:=random(21)-10;
write(a[x,y]:4);
end;
writeln;
end;
writeln;
for x:=1 to n do
for y:=1 to n do
if a[x,y]=0 then writeln(x,',',y);
end.