1.для матрицы 3* 3 обнулить все элементы с четным значением.результат вывести на экран2.для матрицы 3*3 целых чисел найти индексы элементов с нулевым значением .результат вывести на экран.язык програмирования паскаль!помогите п...
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.
Не нашли ответ?
Похожие вопросы