Перший потяг виїхав з пункту а в пункт в. через деякий час з пункта а в тому самому напрямі віїхав другий - id2051831220220105 от DashaKarg3 05.01.2022 12:30

Question

Информатика: Перший потяг виїхав з пункту а в пункт в. через деякий час з пункта а в тому самому напрямі віїхав другий потяг, швидкість якого на 30 км/год більша, ніж швидкість першого потяга. дослідіть, на якій відстані від пункту а другий потяг наздожене перший залежно від їх швидкостей і часу, через який віїхав другий потяг. Треба зробити таблицю в Excel

DashaKarg3 · Accepted Answer

Const
   N = 3;
   M = 4;
Var
   A:array[1..N,1..M] of integer;
   i,j,Min,Max:integer;
Begin
WriteLn('Введите матрицу A[',N,',',M,']:');
For i:= 1 to N do
    For j:= 1 to M do
        Read(A[i,j]);
WriteLn;
For i:= 1 to N do
    Begin
    Min:=1;
    For j:= 2 to M do
        if A[i,Min]>A[i,j] then Min:=j;
    Max:=1;
    For j:= 2 to N do
        if A[Max,Min]<A[j,Min] then Max:=j;
    if Max=i then WriteLn('A[',i,',',Min,'] = ',A[i,Min])
    End;
End.

Пример:
Введите матрицу A[3,4]:
4   3   6 -4
2 -3 -9 -5
2   4 -6 -9

A[1,4] = -4

MOGZ ответил