В массиве X(n,m) изменить значения всех положительных элементов,умножив их значения на 5 ,а отрицательные элементы уменьшить вдвое
Ответы
Ответ дал:
0
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
begin
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.
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад