матрица

Тема в разделе "Pascal and Delphi", создана пользователем VioletTears, 11 июн 2010.

  1. VioletTears

    VioletTears Гость

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

    помогите,пожалуйста решить
    заранее спасибо :ya_lamo:
     
  2. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Невъехал. (хз замените на нужное )
    Код (Delphi):
    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.
     
Загрузка...
Похожие Темы - матрица
  1. fatpunk
    Ответов:
    0
    Просмотров:
    1.135
  2. нини
    Ответов:
    3
    Просмотров:
    1.743
  3. phobiaxx
    Ответов:
    1
    Просмотров:
    1.277
  4. vladis222
    Ответов:
    1
    Просмотров:
    1.285
  5. LudmilaUt
    Ответов:
    0
    Просмотров:
    1.381

Поделиться этой страницей