14.11.2019, 10:29
общий
это ответ
Здравствуйте, kondrat322!
[code lang=pascal]var a:array[1..10,1..10] of integer;
n,m,i,j,k:integer;
begin
repeat
writeln('Введите размеры массива от 2 до 10');
readln(n,m);
until (n in [2..10])and(m in [2..10]);
writeln('Введите элементы массива целые отрицательные и положительные числа');
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
writeln('Исходный массив');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
writeln('Измененный массив');
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j]<0 then a[i,j]:=-a[i,j];
write(a[i,j]:4);
end;
writeln;
end;
end.[/code]