Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Delphi] [Delphi] одномерный массив


Автор: Jmen 3.1.2011, 14:58
Найти количество отрицательных элементов на главной диагонали матрицы Z. Сформировать массив Т из сумм элементов, расположенных в строках с отрицательными элементами на главной диагонали исходного массива Z. 
Т- сумма отрицательных элементов на главной диагонали (для начала надо найти в каких строках они расположены. 
Потом нужно создать массив из 3 строк (одномерный), из строк, где были отрицательные элементы.
m,n – размер массива. 
  

Автор: Poseidon 3.1.2011, 15:12
50$

Автор: Mach3 5.1.2011, 17:04
ммм.. так вопрос-то в чем?
тебе написать программу или помочь чем?
начни с
[code=delphi]
var
  Mas: array of array of real;
  i, j, k: Byte;
  m,n: integer;
begin
k:= 0;
m:= 4;
n:= 4;
SetLength(Mas,m,n); // [0..3,0..3]
Mas[0,0]:=-4.1;
...
Mas[3,3]:=-6;

For i:= 0 to m do
 For j:=0 to n do begin
   if m=n then //находим элементы главной диагонали
    if mas[m,n]<0 then // если отрицательное
      k:=k+1; //считаем кол-во отриц. элем.
...
..
..
// давай сам.. =))
      

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)