тема массивы.

Вывести список учащихся по алфавиту. PascalABC.NET​

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.

Предположим, что время, через которое лодка и байдарка встретятся = Х.

Тогда расстояние, которое пройдет за это время лодка = 3*Х, а расстояние, которое за это время пройдет байдарка = 8*Х.

У нас получится уравнение :

3Х+8Х=44

11Х=44

Х=44:11

Х=4

Проверим :

3*4+8*4=44

ответ : лодка и байдарка встретятся через 4 часа.

Можно также сложить скорости обоих транспортных средств и узнать, на какое время хватит указанного расстояния сумме скоростей :

44:(3+8)=4

ответ : лодка и байдарка встретятся через 4 часа.