|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
22.11.2008, 16:55 | #21 |
Пользователь
Регистрация: 14.11.2008
Сообщений: 15
|
Дан двумерный массив М, состоящий из целых чисел ((-1,5,8,0,11), (1,7,-15,4,0),(3,-4,10,0,16)).
9)Найти отношение сумм элементов 1 и 5-го столбцов. Program mass; uses crt; const M: array [1..3,1..4] of integer =((-1,5,8,0,11)(1,7,-15,4,0)(3,-4,10,0,16)); Var s,s2,i,j,k: integer; a: real; BEGIN clrscr; s:=0; s2:=0; j:=1 for i:=1 to 3 do s:=s+ M[i,j]; begin j:=5 for i:=1 to 3 do s2:=s2+ M[i,j]; end; a:=s/s2; writeln(‘Otnocnenie sum 1 u 5-go stolbcov=’,a:4:2); readln; END. |
24.11.2008, 22:46 | #22 |
Пользователь
Регистрация: 14.11.2008
Сообщений: 15
|
Подмогните не въезжаю!!!
Дан одномерный массив М, состоящий из 10 целых чисел (10,12,0,15,-5,4,-15,3,0,11). 4)Найти количество и сумму элементов, следующих за элементами, равными нулю Последний раз редактировалось Tosa; 24.11.2008 в 23:07. |
25.11.2008, 01:33 | #23 |
Студентик :)
Пользователь
Регистрация: 29.09.2008
Сообщений: 84
|
ну, т.к. тут написано за элементами равными 0, то значит проверяем от 1 до последнего элемента массив, если элемент массива равен 0, то начинаем цикл от нашего 0-ля до последнего элемента, суммируем все и суммируем колличество, выводим... переходим к следующему элементу массива, если 0 то... ( и так вот оно повторяется)...
|
25.11.2008, 09:22 | #24 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
26.11.2008, 13:58 | #25 |
Пользователь
Регистрация: 14.11.2008
Сообщений: 15
|
Вопросик возник
[QUOTE=alex_fcsm;161873][CODE]var i,j,sum:integer;
a:array[1..20] of integer; begin randomize; for i:=1 to 20 do begin a[i]:=random(10)-5; /////любое целое число из десяти?? write(a[i],' '); end; writeln; sum:=0;j:=0; for i:=1 to 19 do if a[i]=0 then begin inc(j); ///// Увеличивает на 1 т.е.j:=j+1 ???? sum:=sum+a[i+1]; end; writeln(j); writeln(sum); end. |
26.11.2008, 14:01 | #26 |
Пользователь
Регистрация: 14.11.2008
Сообщений: 15
|
Что -то не могу победить
Дан одномерный массив М, состоящий из 10 целых чисел (10,12,0,15,-5,4,-15,3,0,11).
3)Найти отношение произведений ненулевых элементов первой и второй половин массива. |
26.11.2008, 14:06 | #27 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Выше писал же
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
Последний раз редактировалось alex_fcsm; 26.11.2008 в 14:12. |
26.11.2008, 14:14 | #28 |
Пользователь
Регистрация: 14.11.2008
Сообщений: 15
|
Я так понимаю отношение это надо multF разделить на multS??
И второе if i <= (n div 2) then - разделяет на две части?? |
26.11.2008, 14:16 | #29 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Вы все правильно понимаете(n div 2 - предполагаемая середина)
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
26.11.2008, 14:48 | #30 |
Пользователь
Регистрация: 14.11.2008
Сообщений: 15
|
Извеняюсь за настойчивость
begin randomize; for i:=1 to n do begin a[i]:=random(10); write(a[i],' '); end; что этот оператор делает??? |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача Whlie do нужна помощь | shadowburn | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 21.11.2008 19:06 |
Задача Pascal на массив (нужна помощь) | STIG_E70 | Помощь студентам | 4 | 18.06.2008 20:19 |
[C] Задача на указатели . Нужна помощь | shtkuh | Помощь студентам | 1 | 26.01.2008 08:47 |
Задача с матрицей(нужна помощь) | VDK23RUS | Помощь студентам | 5 | 14.06.2007 12:55 |