В массиве X(n,m) изменить значения всех положительных элементов,умножив их значения на 5 ,а отрицательные элементы уменьшить вдвое
Мова паскаль? Масив двовимірний?
Паскаль,двумерный
program znan;
var
x:array [1..1000, 1..1000] of real;
m,n,i,j:LongInt;
begin
ReadLn(n,m);
for i:=1 to n do
for j:=1 to m do
Read(x[i,j]);
if x[I,j]>=0 then
x[I,j]:=x[I,j]*5 else
x[I,j]:=x[I,j]/2;
end;
end.