Вмассиве x(n,m) изменить значения всех положительных элементов,умножив их значения на 5 ,а отрицательные элементы уменьшить вдвое
tyt9997
3
05.10.2019 09:06
2
Другие вопросы по теме Информатика
Timurrovt456
05.08.2019 22:20
диииааннаа123
05.08.2019 22:20
sashaiseneev
05.08.2019 22:20
dimasikPro2
15.02.2021 19:37
TryCake
15.02.2021 19:35
zhenyakozyrkova
15.02.2021 19:34
mansurmusaev91
15.02.2021 19:33
hobitmaksovtize
28.05.2019 19:00
Популярные вопросы
- Почему бессточные озёра солёные? ответ должен содержать не менее двух...
3 - Какие из перечисленных объектов расположены на территории Евразии...
1 - Какой растительный и животный мир характерен для зоны тундр?...
2 - Какая наука изучает природу Земли, население и его хозяйство?...
3 - Кто из путешественников не совершал кругосветного путешествия а) Дж. Кук...
1 - Наука изучающая нижний слой атмосферы (тропосфера)...
2 - Линия, которая находится на равном расстоянии от обоих полюсов, называется...
1 - Вид изображения, позволяющий подробно изучить небольшой по площади участок...
2 - Кто является первооткрывателем Америки?...
2 - Какое из предложенных утверждений верно характеризует соотношение радиусов...
3
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.