Var i,j,n: integer; a: array[,] of real; begin write('n = '); readln(n); setlength(a,n+1,n+1); randomize; writeln('исходная матрица:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(-20,20); write(a[i,j]:4); end; writeln; end; //транспонирование матрицы for i:=1 to n-1 do for j:=i+1 to n do swap(a[i,j],a[j,i]); //вывод на экран writeln('транспонированная матрица:'); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln; end; end.
1. Определим производительность каждого принтера, т.е. какую часть грамоты он отпечатает за 1 минуту. 1-й: 1/5, 2-й: 1/7, 3-й: 1/9. 2. Работая вместе, все три принтера напечатают за минуту 1/5+1/7+1/9= 143/315 часть грамоты. 3. Определим время, которое понадобится чтобы сделать всю работу 2018/(143/315) ≈ 4445 мин. 4. Определим, сколько грамот напечатает за это время каждый принтер. 1-й: 4445/5 = 889, 2-й: 4445/7 = 635, 3-й: 4445/9 = 493.8. 5. Поскольку 3-й принтер не успевает напечатать одну грамоту, поправим время работы: 494х9 = 4446 мин. 6. Проверка. 889+635+494 = 2018.
Вот так надо делать
Ку