1.для матрицы 3* 3 обнулить все элементы с четным значением.результат вывести на экран 2.для матрицы 3*3 целых чисел найти индексы элементов с нулевым значением .результат вывести на экран. язык програмирования паскаль!

153

281

Посмотреть ответы 2

Ответы на вопрос:

aleksandr250804

Информатика

4,4(63 оценок)

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.