Информатика, опубликовано 2018-08-22 23:20:06 by Гость
Заменить все положительные элементы противоположными в прямоугольном массиве эл. которого являются целые числа.
Ответ оставил Гость
Const nx=20;var i,j,n:integer; D:array[1..nx,1..nx] of integer;
begin
write(Введите размер матрицы n);Readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
D[i,j]:= random(100)-50;write(D[i,j]:4);end;writeln;end;writeln;writeln;
for i:=1 to n do begin
for j:=1 to n do begin
if D[i,j] >0 then D[i,j]:= D[i,j]*(-1);write(D[i,j]:4);end;writeln;end;end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на