Ввести с клавиатуры матрицу P{7,9}.

[_Алексей_]

Ввести с клавиатуры матрицу P{7,9}.Вывести ее на экран.Найти сумму отрицательных элементов матрицы,произведение положительных элементов,кол-во ненулевых элементов.


Помогите пожалуйста на языке Delphi Заранее благодарен)

[Npwas]

Сообщение от _Алексей_

Помогите пожалуйста на языке Delphi Заранее благодарен)

В знак благодарности нажми на весы под моей аватаркой!!!

Вот рабочая прога в консольке:

program Matrix5_The_Path_Of_Neo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

TYPE
 matrix=array of array of integer;//Тип двумерного динамического массива - матрицы

Var
 A:matrix; //Переменная типа матрицы
 i,j,N,M,Sum,Proizved,kolvo:Integer;
 {i-номер строки, j-номер столбца, N- кол-во строк, M- кол-во столюцов}
 Proizvedind:boolean; //Индификатор определяющий:Есть положительные эл-ты или нету

{ПРОЦЕДУРА СОЗДАНИЯ И ОТОБРАЖЕНИЯ МАТРИЦЫ}
PROCEDURE  SozdanijaAndOtobrazenije_Matrizi;
 BEGIN
  Write('Vvedite kol-vo strok: ');
  Readln(N);
  Write('Vvedite kol-vo stolbzov: ');
  Readln(M);
  SetLength(A,N,M);
  Writeln('Vvedite Znachenija elementov matrizi');
  For i:=0 to N-1 Do //Ввод матрицы с клавиатуры
    For j:=0 to M-1 Do
     Begin
        Write('A[',i,',',j,']= ');
        Readln(A[i,j])
     End;
  Writeln;
  For i:=0 to N-1 Do//Вывод матрицы на экран
   Begin
    For j:=0 to M-1 Do
      Write(A[i,j],'  ');
    Writeln
   End;
 END;

PROCEDURE Rasscheti;
 BEGIN
  Sum:=0;
  Proizved:=1;
  For i:=0 to N-1 Do
   Begin
    For j:=0 to M-1 Do
     IF A[i,j]<>0 Then //Проверка на ненулевой эл-т
       Begin
         Inc(kolvo); // тоже самое что kolvo:=kolvo+1;
         IF A[i,j]<0 Then //Проверка на отрицательный эл-т
           Sum:=Sum+A[i,j]
         Else  //В ином случае положительный эл-т
           Begin
             Proizvedind:=true;
             Proizved:=Proizved*A[i,j]
           End
       End;
   End;
  {ВЫВОД ПОЛУЧЕННЫХ РЕЗУЛЬТАТОВ}
  IF Sum<>0 Then
    Writeln('Summa otrizatelnich elementov: ',Sum)
  Else
    Writeln('Otrizatelnich elemetov net');
  Writeln;
  IF Proizvedind Then
    Writeln('Proizvedenije polozitelnich elementov: ',Proizved)
  Else
    Writeln('Polozitelnich elemetov net');
  Writeln;
  IF kolvo<>0 Then
    Writeln('Kol-vo ne nulevich elementov: ',kolvo)
  Else
    Writeln('Vse elementi ravni nulu');
  Writeln
 END;

{Тело проги}
BEGIN
 SozdanijaAndOtobrazenije_Matrizi;        //Вызов процедуры для создания и отображения матрицы;
 Rasscheti;                                       //Вызов процедуры для рассчетов;
 Writeln('Dlja vihoda nazmithe Enter!!!');
 Readln
END.

[_Алексей_]

на делфи же на до было

[Npwas]

Сообщение от _Алексей_

на делфи же на до было

oO Вообщето это и есть делфи, сделано в консоли, а не на форме.
Как создать консоль: File --> New --> Other --> New --> Console Application
(Файл --> Новый --> Другой --> Новый --> Console Application)

[BDA]

Сообщение от _Алексей_

на делфи же на до было

Просто удивительно
Вам написали программу для консольного режима дельфи, чего же вы хотите?
Или сразу обговаривайте все условия)

На данный момент программа Npwas удовлетворяет условию из 1 поста.

АААА, что же все время не успеваю-то)