Лучший работник

CLS
INPUT “ Кол. рабочих дней: Кол. работников:  “, M, N
   FOR k = 1 TO M
PRINT  “          “; k; “¬ ¬¬¬¬–й день”
      S = 0
   FOR j = 1 TO N
PRINT j; “–й работник собрал деталей :” ;
INPUT “  “, A(j)   ‘Кол. собранных деталей
     S = S + A(j)
   NEXT j
PRINT “ Кол. собранных дет. всеми работниками: “; S
    NEXT k:  PRINT
   FOR k = 1 TO M
      FOR j = 1 TO Т
         S1 = S1 + A(j)
          S2 = S2 + A(j)
    NEXT j, k
          S3 = S1 + S2
PRINT “ Кол. собранных дет. всеми работниками за все дни:”; S3

Кол. рабочих дней. Кол. работников: 2,  2
            1-й день
1-й работник собрал деталей: 10
2-й работник собрал деталей: 11
Кол. собр-х дет-й всеми работниками: 21
             2-й день
1-й работник собрал деталей: 11
2-й работник собрал деталей: 9
Кол. собр-х дет-й всеми работниками: 20
 
Кол. собр-х деталей всеми работниками за все дни:  80

CLS
INPUT “ Кол. работников: “, N
INPUT “ Кол. рабочих дней: “, M
    FOR I = 1 TO N
       PRINT
PRINT “  Выполнено “ ; i;  “-м работником”
     FOR j = 1 TO M
PRINT “  “ ; j; “-й день “;
   INPUT “   “, k
       S = S + k
      NEXT j
PRINT “ Выполнено дет. “ ; i:   “-м работником за все дни:”; S
    NEXT i

Кол. работников:  2
Кол. рабочих дней:  2
 
Выполнено 1-м работником
   1-й день   10
   2-й день   11
Выполнено дет. 1-м работником за все дни:  21
 
Выполнено 2-м работником
    1-й день   13
    2-й день   12
Выполнено дет. 2-м работником за все дни:  46

CLS
DIM A(5)
   FOR I = 1 TO 2
    PRINT “   “; i ;  “ – й день “
INPUT “  Ввести кол. работников: “, N
   FOR j = 1 TO N
PRINT j; “- м работником собрано деталей: “;
INPUT “   “, A(j)   ‘Кол. собранных деталей
    S = S + A(j)
   NEXT j
PRINT “ Собрано дет. всеми работ-ми за”; i; “- й день: “; S
    P = A(1): ind = 1
   FOR j = 1 TO 5
     IF P < A(j) THEN  P = A(j):  ind = j
   NEXT: PRINT
PRINT “ Работник, собравший больше всех деталей: “; P
PRINT “ Номер этого лучшего работника: “; ind
   NEXT i

 1 -й  день
Ввести кол. работников:  3
1   -м работником собрано деталей:  15
2   –м работником собрано деталей:  12
3   – м работником собрано деталей:  17
Собрано дет. всеми работ-ми за 1 –й день:  44
 
Работник, собравший больше всех деталей:  17
Номер этого лучшего работника:  3
            2 – день
Ввести кол. работников:  2
1   - м  работником собрано деталей:  19
2    - м  работником собрано деталей:  22
Собрано дет. всеми  работ-ми  за  2-й день:  85
 
Работник, собравший больше всех деталей:  22
Номер этого лучшего работника:  2

CLS
INPUT “  Кол. рабочих дней: “, M
   FOR k = 1 TO M
    PRINT “         “; k ;  “ – й день “
INPUT “  Кол. работников: “, N
       S = 0
   FOR j = 1 TO N
PRINT j; “- й работник собран деталей: “;
INPUT “   “, A(j)   ‘Кол. собранных деталей
    S = S + A(j)
   NEXT j
PRINT “ Собрано дет. всеми работ-ми за”; k; “- й день: “; S
    P = A(1): ind = 1
   FOR j = 1 TO N
     IF P < A(j) THEN  P = A(j):  ind = j
   NEXT: PRINT
PRINT “ Работник, собравший больше всех деталей: “; P
PRINT “ Номер этого лучшего работника: “; ind
   NEXT

1 -й  день
Кол. работников:  2
1   -й работник собрал деталей:  15
2   –й работник собрал деталей:  12
          Собрано дет. всеми работ-ми за 1 –й день:  27
 
Работник, собравший больше всех деталей:  15
Номер этого лучшего работника:  1
            2 – день
Кол. работников:  2
1   - й  работник собрал деталей:  19
2    - й  работник собрал деталей:  22
Собрано дет. всеми  работ-ми  за  2-й день:  41
 
Работник, собравший больше всех деталей:  22
Номер этого лучшего работника:  2

CLS
INPUT “     Кол. рабочих дней: “,n
   FOR I = 1 TO n
    PRINT “    Кол. работников: “, m
        S = 0
   FOR j = 1 TO m
    PRINT j; “-й работник сделал “;
INPUT “  “, A(k)
     S = S + A(k)
   NEXT j
PRINT “ Сделано всеми за “; n; “-день”; S
   NEXT i: PRINT

  Кол. рабочих дней:  2
           1 –й день
      Кол. работников:  2
1-й работник сделал   12
2-й работник сделал   13
Сделано всеми за 2 дня:  25
            2-й день
       Кол. работников:  2
1-й работник сделал   8
2-й работник сделал   9
Сделано всеми за 2 дня:  17

CLS
INPUT “ Ввести кол. рабочих дней: “, n
    R1 = 0:  R2 = 0  ‘До начала работы
   FOR I = 1 TO n
     PRINT “           “; i; “-й день”
INPUT “ Сколько сделано дет. 1-м работником: “, X
INPUT “ Сколько сделано дет. 2-м работником: “, Y
      R1 = R1 + X
      R2 = R2 + Y
PRINT “ Кол. сделанных дет. за день всеми работниками: ; R1+R2
   NEXT i: PRINT
PRINT “ 1-м работником за”; n; “-дня сделано: “ R1; “inт”
PRINT “ 2-м работником за”; n; “-дня сделано: “ R2; “inт”
        PRINT
     IF R1 > R2 THEN
PRINT “ 1-м работ-м за; “; n; “-дня сделано больше на “; R1 – R2
         ELSE
     IF R2 > R1 THEN
PRINT “ 2-м работ-м за; “; n; “-дня сделано больше на “; R2 – R1
          ELSE
PRINT “ 1-м  и  2-м работ-м за”; n; “-дня сделано поровну”
        END IF
           END IF

Ввести кол. рабочих дней:  2
             1 – й день
Сколько сделано дет. 1-м работ.  12
Сколько сделано дет. 2-м работ.  13
Кол. сделанных дет. за день всеми работниками:  25
              2 – й день
Сколько сделано дет. 1-м работ.  5
Сколько сделано дет. 2-м работ.  9
Кол. сделанных дет. за день всеми работниками: 39
 
1-м работником за 2 дня сделано:  17 шт
2-м работником за 2 дня сделано:  22 шт
 
2-м работником за 2-дня сделано больше на  5 шт

CLS
INPUT “ Ввести кол. рабочих дней: “, M
    FOR i = 1 TO M
PRINT “         “; i; “-день”
INPUT “     Кол. работников: “, n
     S = 0
   FOR j = 1 TO n
PRINT  j; “-й работник собрал деталей: “;
INPUT “  “, A(i)  ‘Кол. собранных деталей
     S = S + A(i)
   NEXT j
PRINT “ Кол. собр. Деталей за день всеми работ-ми: “; S
   NEXT i

Ввести кол. рабочих дней:  2
        1 –день
     Кол. работников:  2
1-й  работник собрал деталей:  10
2-й  работник собрал деталей:  11
Кол. собр. Деталей за день всеми работ.:  21
         2-й день
      Кол. работников:  3
1-й работник собрал деталей:  9
2-й работник собрал деталей:  12
3-й работник собрал деталей:  8
Кол. собр. Деталей за день всеми работ.:  29