Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Igrey13
1

В массиве заменить отрицательные элементы номером столбца, в котором они находятся

28.02.2010, 18:10. Показов 813. Ответов 1
Метки нет (Все метки)

В массиве Q(m=5,n=2) заменить отрицательные элементы номером столбца, в котором они находятся:


Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program Igor;
{$APPTYPE CONSOLE}
uses
    SysUtils;
const
        m=2;
      n=5;
type
        mas=array[1..m,1..n] of integer;
var
        A:mas;
        i,j:integer;
begin
        WriteLn('Type integer elements of array A:');
      for i:=1 to m do
                for j:=1 to n do Read(A[i,j]);
 
            if A[i,j]<0 then A[i,j]:=j
        Writeln(' Result: R=',A);
        WriteLn('***** Press <ENTER> to finish *****');
Readln;     // задержка экрана
Readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.02.2010, 18:10
Ответы с готовыми решениями:

Заменить отрицательные элементы матрицы номером столбца, в котором они находятся
Всем доброго времени суток! Помогите решить задачу! Заранее спасибо! В массиве Q(m,n) заменить...

Заменить отрицательные элементы суммой номера столбца и номера строки, в которых они находятся
Входные данные: целочисленный массив А размером m х n, где m = 2, n = 4. Заменить отрицательные...

количество чисел, совпадающих с номером столбца, в которых они находятся
Задача такая: Дана целочисленная прямоугольная матрица. Определить: 1) сумму элементов тех...

Среди чисел найти кратные 3 и заменить на тот номер, на котором они находятся
Вводим массив чисел, среди них необходимо найти кратные 3 и заменить на тот номер, на котором они...

1
165 / 82 / 32
Регистрация: 05.02.2010
Сообщений: 318
28.02.2010, 19:44 2
if A[i,j]<0 then A[i,j]:=j
мне эта запись не по душе, то есть если опред число меньше то массиву пренадлеж ?



обмен местом то есть ;

Delphi
1
2
3
buff:=mas[i,p];
          mas[i,p]:=mas[i,t];
          mas[i,t]:=buff;
а именно столбец, то

Delphi
1
if mas[1,j]
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.02.2010, 19:44

В массиве все нечетные элементы заменить на максимальный из четных элементов столбца, в котором он расположен
В массиве все нечетные элементы заменить на максимальный из четных элементов столбца, в котором он...

Заменить все элементы строки с номером k и столбца с номером l на противоположные по знаку
Заменить все элементы строки с номером k и столбца с номером l на противоположные по знаку...

Заменить максимальный элемент каждой строки матрицы номером столбца в котором он находится
Дан двумерный массив размером n*m заполненный случайным образом 1.Заменить максимальный элемент...

Заменить соседние элементы, если они находятся в отношении родитель-ближайший потомок. Объясните, как работает
Помогите объяснить программу. Программу взяла с форума. Необходимо заменить соседние элементы,если...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru