|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
21.12.2012, 00:46 | #1 |
Пользователь
Регистрация: 14.11.2012
Сообщений: 36
|
Объясните
Прошу объясните что мы делаем в этой задаче поэтапно
program lab15_2; uses crt; const n=6; m=5; var r:array[1..n,1..m] of integer; max:array[1..n] of integer; i,j,tmp:integer; f:boolean; begin clrscr; Randomize; for i:=1 to n do begin for j:=1 to m do begin r[i,j]:=100-random(200); write(r[i,j]:6); end; writeln; end; writeln('-------------------------------'); for i:=1 to n do begin max[i]:=r[i,1]; for j:=2 to m do if r[i,j]>max[i] then max[i]:=r[i,j]; end; repeat f:=false; for i:=1 to n-1 do if max[i]<max[i+1] then begin tmp:=max[i]; max[i]:=max[i+1]; max[i+1]:=tmp; f:=true; end; until f=false; for i:=1 to n do write(max[i]:5); readln; end. ___________ 1) Код нужно оформлять по правилам: тегом [CODE]..[/СODE] (это кнопочка с решёточкой #) 2) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы. В следующий раз не забывайте об этом! Модератор. Последний раз редактировалось Serge_Bliznykov; 21.12.2012 в 09:33. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Объясните!!! | Tyfun | Помощь студентам | 3 | 08.09.2010 22:16 |
Объясните! (С++) | slim>>> | Помощь студентам | 3 | 16.03.2010 19:26 |
Объясните | Sergo(1) | Помощь студентам | 2 | 10.05.2009 22:46 |
Объясните!!! | Dawystrik | Общие вопросы Delphi | 1 | 20.03.2009 12:07 |