В массиве X(n,m) поменять значения всех положительных элементов,умножив их значения на

В массиве X(n,m) поменять значения всех положительных частей,умножив их значения на 5 ,а отрицательные элементы уменьшить вдвое

Задать свой вопрос
Амина Замцова
Мова паскаль? Масив двовимрний?
Шелюгина Виолетта
Паскаль,двумерный
1 ответ

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]gt;=0 then

x[I,j]:=x[I,j]*5 else

x[I,j]:=x[I,j]/2;

end;

end.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт