Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

ТЕМА:ОБРАБОТКА ДВУМЕРНЫХ МАССИВОВ..

ПО ПАСКАЛЬ!!!!!!

Задание:

Дан двумерный массив А состоящий из 4 строк и 5 столбцов ..Найти,сколько положительных элементов содержит данная матрица в каждом столбце.

Ответ оставил Гость

program picaso; uses crt;
type matrice=array[1..10,1..10] of integer;
var i,j,n,m,k:integer;
    a:matrice;
procedure rea(var a:matrice);
begin
    writeln(n: );readln(n);
    writeln(m: );readln(m);
    writeln(ведите ,n*m, элементов);
    for i:=1 to m do
        for j:=1 to n do
        begin
            write(A[,i,,,j,]=);
            readln(A[i,j]);
        end;    
end;
procedure writ;
begin
    writeln(Массив A);
    for i:=1 to m do
    begin
        for j:=1 to n do
            write(A[i,j],    );
            writeln;
    end;
end;
procedure calc(a:matrice );
begin
    
    for j:=1 to n do
    begin
    k:=0;
        for i:=1 to m do
            
            if a[i,j] > 0 then inc(k);
            writeln(столбец :,j, положительные элементы : ,k);
    end;
end;
begin clrscr;
    rea(a);
    writ;
    calc(a);
    readln;
end.