Версия для печати темы

Автор: Cold 27.12.2006 0:26

Задание:
Определить количество отрицательных элементов, лежащих выше главной диагонали матрицы
A(MxM).
Помогите ,а то завтра здавать ,а я не знаю как её делать.

Автор: мисс_граффити 27.12.2006 0:36

читал: http://forum.pascal.net.ru/index.php?s=&showtopic=2694&view=findpost&p=23247
?
если да, какие вопросы?

Автор: Cold 27.12.2006 1:13

Вопросы есть.Я вот написал програму , но она не выдаёт нужный результат.

Program TwoSums;
Uses Crt;
  Var A : Array [1..10, 1..10] of Real;
      k,s :real;
      m, i, j : Integer;
    Begin
     ClrScr;
      Write('Количество строк и столбцов(m) - ');
      ReadLn(m);
      For i := 1 to m do
        For j := 1 to m do
          begin
          Write('A[' , i , ', ' , j , '] =  ');
                ReadLn(A[i, j]);
          end;
           WriteLn;
      ClrScr;
       WriteLn(' Матрица А');
      For i := 1 to m do
        begin
          For j := 1 to m do
           Write(A[i, j] : 5 : 1);
          WriteLn
        end;
    Begin
      k:=1;
      For i := 1 to m do
        For j := i to m do
          if a[i,j]>0 then  a[i,j]:=K;
          s:=0+k;
            Writeln('вывести s');
    ReadLn(s);
    end;
    end.

Помогите пожалуста, исправить ошибки в програму.

Автор: мисс_граффити 27.12.2006 1:28

во-первых, необходимо использовать теги [cоde=pаs][/cоde], когда публикуешь текст программы.

Автор: Cold 27.12.2006 1:37

Да заполняется.

Автор: мисс_граффити 27.12.2006 1:50

и что ты этим хочешь сделать:

a[i,j]:=K;

?
и почему

 k:=1;

?
по-моему, логичнее предположить, что изначально k=0...