|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.10.2008, 21:39 | #1 |
Регистрация: 19.10.2008
Сообщений: 7
|
Pascal:одномер. и двумерн. массивы
1.Создать массив целых чисел R[1..n], содержащий серии чисел разделенных нулями. Отсортировать массив по возрастанию сумм чисел в сериях.
2.В матрице NxN определить суммы каждой диагонали параллельно побочной, включая её. Обнулить диагональ с максиамльной суммой. P.S:помогите оч нужно, не то до свидания институт и привет АРМИЯ(( За ранее, огромное спасибо.У самого ничего не получилось, вы так сказать моя последняя надежда) |
20.10.2008, 14:47 | #2 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
1) в поиск
2) в поиск перенесено во фриланс
Life is too short, play more...
Как правильно задавать вопросы |
20.10.2008, 16:42 | #3 |
Регистрация: 19.10.2008
Сообщений: 7
|
1.uses crt;
const n=30; var a,s, g:array[1..n] of integer; i, h, k, c:integer; priz:boolean; begin clrscr; randomize; for i:=1 to n do begin a[i]:=-10+random(20); write(a[i], ' '); end; s[i]:=0; while a[i]<>0 do s[i]:=s[i]+a[i]; writeln(s[i], 'symma', i); repeat dec(k); priz:=true; for i:=1 to k do if s[i]>s[i+1] then begin c:=s[i]; s[i]:=s[i+1]; s[i+1]:=c; priz:=false; end; until priz; writeln(' ', s[i]); readkey end. Но ответы какие то корявые, что изменить то надо или исправить??Помогите пжл... |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Pascal/Массивы | ромка) | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 14.06.2008 18:29 |
Двумерные массивы (Pascal) | Дима82 | Помощь студентам | 11 | 07.06.2008 16:54 |
Массивы в Pascal | Alex XXX | Помощь студентам | 4 | 21.04.2008 02:16 |
Pascal. Массивы | Danilyuk | Помощь студентам | 1 | 22.01.2008 19:56 |