Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите плиз решить задачу на масивы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Cold
Задание:
Определить количество отрицательных элементов, лежащих выше главной диагонали матрицы
A(MxM).
Помогите ,а то завтра здавать ,а я не знаю как её делать.
мисс_граффити
читал: Массивы. Матрицы. Типичные задачи.
?
если да, какие вопросы?
Cold
Вопросы есть.Я вот написал програму , но она не выдаёт нужный результат.
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.

Помогите пожалуста, исправить ошибки в програму.
мисс_граффити
во-первых, необходимо использовать теги [cоde=pаs][/cоde], когда публикуешь текст программы.
Cold
Да заполняется.
мисс_граффити
и что ты этим хочешь сделать:
a[i,j]:=K;
?
и почему
 k:=1;
?
по-моему, логичнее предположить, что изначально k=0...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.