• Paranoid - курс по анонимности и безопасности в сети от команды codeby. Защита персональных данных, анонимность в сети интернет, настройка виртуальных машин, безопасная передача данных, анти форензика и еще много всего полезного. Подробнее ...

  • Мобильный клиент нашего форума для Android гаджетов доступен в Google Play Market по этой ссылке. Клиент можно скачать с нашего форума по этой ссылке. Последняя версия МК в нашем телеграм канале вот здесь

матрица

  • Автор темы VioletTears
  • Дата начала
V

VioletTears

#1
Дана матрица A(n,m). Если элемент отрицательный увеличить его в два раза, если отрицательный уменьшить на 4, если равен нулю – заменить единицей.

помогите,пожалуйста решить
заранее спасибо :ya_lamo:
 
09.11.2009
665
1
#2
Если элемент отрицательный увеличить его в два раза, если отрицательный уменьшить на 4, если равен нулю – заменить единицей.
Невъехал. (хз замените на нужное )
Код:
cons n=3;
m=2;
var a:array[1..n,1..m] of integer;
i,j:integer

begin
writeln('vvedite masiv');
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);

for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]<0 then a[i,j]:=хз*a[i,j]; {тут меньше 0}
if a[i,j]>0 then a[i,j]:=хз*a[i,j]; {а тут больше 0}
if [i,j]=0 then a[i,j]:=1;
end;

writeln('noviy masiv');
for i:=1 to n do
for j:=1 to m do
writeln(a[i,j]);

readln;
end.
 
Вверх Снизу