|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.12.2015, 21:19 | #1 |
Пользователь
Регистрация: 22.12.2015
Сообщений: 28
|
о ежедневном количестве выпускаемой продукции каждым цехом некоторого предприятия в течение некоторого промежутка времени оформлен
о ежедневном количестве выпускаемой продукции каждым цехом некоторого предприятия в течение некоторого промежутка времени оформлены в виде таблицы:
определить порядок занимаемых мест каждым цехом по итогам работы за первую трудовую неделю; (через двумерный массив) |
24.12.2015, 10:24 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код HTML:
const n=3; m=10; type masiv = array[1..100,1..100] of integer; var i,j,z,x,c,v,b,s:integer; a:masiv; begin for i:=1 to n do for j:=1 to m do readln(a[i,j]); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); writeln; end; for z:=1 to n do for x:=z to n do begin v :=0; for c:=1 to m do v:=v+a[z,c]; b :=0; for s:=1 to m do b:=b+a[x,s]; if v<b then for c:=1 to m do begin v:=a[z,c]; a[z,c]:=a[x,c]; a[x,c]:=v end; end; for i:=1 to n do begin v:=0; for j:=1 to m do v:=v+a[i,j]; write(v,' : '); for j:=1 to m do write(a[i,j]:4); writeln; end; end.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Симметрично отобразить элементы некоторого столбца матрицы | KiofST | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 03.07.2014 01:11 |
Для С. Дата некоторого дня характеризуется тремя числами | lizka6011997 | Помощь студентам | 1 | 18.04.2014 16:46 |
Дана база данных некоторого акционерного предприятия. Поля : ФИО Акционера, список акций(кол-во, стоимость каждого вида акций)Сост | ANTON1994 | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 04.03.2013 15:55 |
В С++ определить количество цифр в числе, являющихся квадратами некоторого числа | mmf_Valya | Помощь студентам | 1 | 20.10.2012 19:13 |