Дана матрица А(3,3)....

Тема в разделе "Информатика", создана пользователем vertumania, 4 янв 2010.

  1. vertumania

    vertumania New Member

    Дана матрица А(3,3). В строках с отрицательным элементом на главной диагонали найти суммы всех элементов. Вывести номера строк, суммы, а так жематрицу А по строкам.
    Паскаль
     
    vertumania, 4 янв 2010
    #1
  2. udaff

    udaff New Member

    Var a,b,i,min,j,sum:longint;
    m:array[1..3,1..3] of longint;
    begin
    for i:=1 to 3 do
    for j:= 1 to 3 do
    read(m[i,j]);
    for i:=1 to 3 do
    if m[i,i]< 0 then
    begin
    for j:=1 to 3 do
    sum:=sum+m[i,j];
    writeln(i,' ',sum);
    sum:=0;
    end;
    for i:=1 to 3 do
    begin
    writeln;
    for j:= 1 to 3 do
    write(m[i,j],' ');
    end;
    end.
     
    udaff, 4 янв 2010
    #2

Поделиться этой страницей

Наша группа