Предмет: Информатика,
автор: ilya19982008
Написать программу замены в двумерном массиве его элементов на их модули
Ответы
Автор ответа:
0
{ массив 2 на 4}
const a:array[1..2,1..4] of integer = (
(1,2,3,4),
(-1,-2,-3,-4) );
var i,j:integer;
begin
for i := 1 to 2 do
for j:= 1 to 4 do
a[i,j]:=abs(a[i,j]);
for i := 1 to 2 do
begin
for j:= 1 to 4 do
write(a[i,j],' ');
writeln;
end;
end.
const a:array[1..2,1..4] of integer = (
(1,2,3,4),
(-1,-2,-3,-4) );
var i,j:integer;
begin
for i := 1 to 2 do
for j:= 1 to 4 do
a[i,j]:=abs(a[i,j]);
for i := 1 to 2 do
begin
for j:= 1 to 4 do
write(a[i,j],' ');
writeln;
end;
end.
Похожие вопросы
Предмет: Русский язык,
автор: diasbospan
Предмет: История,
автор: kamilaidrisova2
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Биология,
автор: shapka20031