матрица

[Hacker19_90]

Сообщение от jennyjen

By the way, "Mess with the best, die like the rest" a cool statement.

Thank you!

[jennyjen]

программа работает, но к сожелению не считает правельно, то есть не правельно считает число положительных елементов из колонн.

[alex_fcsm]

Желательно пример, где неправильно считает

[jennyjen]

я ввела елементы матрицы -2 1 0 и выходит p=1447

[Hacker19_90]

type 
    matrice=array[1..2, 1..3] of integer;
    vector=array[1..3] of integer;
var 
    b:matrice;
    Positive:vector;
    i,j:integer;
procedure Pos(b:matrice; var p:vector);
var
    i,j:integer;
    count: integer;
begin
    for j:= 1 to 3 do {Если реально столбцов а не строк}
    begin
        count := 0;
        for i:= 1 to 2 do 
        begin
            if b[i,j]>0 then Inc(count);
        end;
        p[j] := count;
    end;
end;
Begin
writeln ('Introduce the elements:');
for i:= 1 to 2 do 
for j:= 1 to 3 do
readln(b[i,j]);
Pos(b,Positive);
writeln('Кол-во положительных элементов I столбца',Positive[1]);
writeln('Кол-во положительных элементов II столбца',Positive[2]);
writeln('Кол-во положительных элементов III столбца',Positive[3]);
writeln('Кол-во положительных ',Positive[1]+Positive[2]+Positive[3]);
readln;
end.

[jennyjen]

Thank you very much. You cannot imagine how grateful I am!

[Hacker19_90]

No problems! Always your Hacker19_90!

[seriikorj]

искал...на форуме нету........матрица 5X5....найти максимальные числе по главной и побочной диагоналям и поменять их местами.....для Delphi......