|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
30.09.2013, 22:30 | #1 |
Пользователь
Регистрация: 19.04.2013
Сообщений: 83
|
пожалуйста помогите!!! на делфи!!!
у меня в консоле, нужно в делфи, я новичок, умею тока в консоле( а в делфи переделать ну никак не получается пжл помогите((
program Project2; {$APPTYPE CONSOLE} uses SysUtils; Var a:array[1..10,1..10] of byte; summ:array[1..10] of byte; i,j,m,n,max:integer; SummChet, SummNechet:integer; begin writeln('vvedite razmernost matrici mxn: '); write('m= '); readln(m); write('n= '); readln(n); writeln('vvedite elementi matr: '); for i:=1 to m do for j:=1 to n do begin write('a[',i,',',j,']= '); readln(a[i,j]); end; writeln('matrica'); for i:=1 to m do begin for j:=1 to n do begin write(a[i,j]:3); summ[i]:=summ[i]+a[i,j]; end; writeln; end; writeln('summa elementov kajdoi stroki: '); max:=summ[1]; for i:=1 to m do begin writeln(i,' stoka: ',summ[i]); if summ[i]>max then max:=summ[i]; end; writeln('max summa:',max); writeln('pomenyali pervuyu stoku s poslednei: '); for i := 1 to n do begin j := a[1, i]; a[1, i] := a[m, i]; a[m, i] := j; end; for i := 1 to m do begin for j := 1 to n do write(a[i, j]:6); writeln; end; // Считаем сумму четных/нечетных элементов writeln('summa elementov 4etnih i ne4etnih 4isel: '); SummChet := 0; SummNechet := 0; for i := 1 to m do for j := 1 to n do begin if (a[i, j] mod 2 = 0) then inc(SummChet, a[i, j]) else inc(SummNechet, a[i, j]); end; writeln('summa chetnih: ', SummChet:6); writeln('summa nechetnih: ', SummNechet:6); write('vihod-enter'); readln; end. |
30.09.2013, 22:31 | #2 |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
А что помочь-то?
|
30.09.2013, 22:36 | #3 |
dimgunkin
Форумчанин
Регистрация: 06.05.2010
Сообщений: 112
|
Что нужно сделать? Пиши, помогу! контакты в подписи.
|
30.09.2013, 22:42 | #4 |
Пользователь
Регистрация: 19.04.2013
Сообщений: 83
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите пожалуйста с кодом в делфи | Senorita555 | Помощь студентам | 3 | 05.01.2010 12:28 |
Записи в Делфи.Пожалуйста,помогите дорешить задачу | pionerka | Помощь студентам | 3 | 12.12.2009 23:23 |
Помогите пожалуйста доделать програму в делфи! | doodlezD | Помощь студентам | 3 | 19.06.2009 22:14 |
Делфи Консоль ПОмогите пожалуйста | LLIypLLIyH | Помощь студентам | 8 | 10.06.2008 21:10 |