|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
27.10.2010, 09:58 | #1 |
Пользователь
Регистрация: 21.05.2009
Сообщений: 37
|
Одномерный массив, сделать в turbo pascal
1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,20]. найти сумму элементов, имеющих нечетные индексы.
2.Подсчитать количество эдементо массива, значения которых больше заданного числа A и кратных 5 3. найти номер прервого отрицательного элемента, делящегося на 5 с остатком 2. |
27.10.2010, 10:59 | #2 |
:D
Форумчанин
Регистрация: 26.09.2010
Сообщений: 570
|
ну это из школы пример
1. функцию рандома найдите сами, чтобы найти сумму элементов надо идти по массиву, считая от нечетного индекса, переступая через два (0,2,4,6,8,10). 2. задаете А, начинаете проматывать массив, внутри вставляете c:=a[i] mod 5; if (c=0) b=b+1 // это счетчик количества элементов массива 3. условия неясны, все числа можно поделить на 5, результат только будет разный
Пишу ПО, создаю сайты, делаю курсовые работы, за деньги
C#, .NET, MS SQL, AngularJS, HTML, jQuery |
28.10.2010, 18:55 | #3 |
Пользователь
Регистрация: 21.05.2009
Сообщений: 37
|
не получается((((
вот попробовала певую часть сделать, ну вроде не правильно считает program P5; uses crt; const n=10; type m1=array [1..n] of integer; var a:m1; s :integer; begin; clrscr; randomize; for i:=1 to n do begin; a[i]:=random(30)-10; write (a[i]:5); end; s:=0; for i:=1 to n do if i mod 2<>0 then s:=s+i; writeln(s,' '); readln; end. Последний раз редактировалось lubov_morkov; 28.10.2010 в 19:04. |
28.10.2010, 19:04 | #4 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Код:
Код:
にんじゃ
|
28.10.2010, 19:05 | #5 |
Форумчанин
Регистрация: 05.04.2010
Сообщений: 410
|
поиск суммы
Код:
ICQ: 593-013-807
|
28.10.2010, 19:10 | #6 |
Пользователь
Регистрация: 21.05.2009
Сообщений: 37
|
не получается(((((((( слишком большое число выходит
program P5; uses crt; const n=10; type m1=array [1..n] of integer; var a:m1; i,s,k :integer; begin; clrscr; randomize; for i:=1 to n do begin a[i]:=random(30)-10; write (a[i]:5); end; s:=0; for i:=1 to n do begin if odd(i) then s:=s+a[i]; end; writeln(s,' '); readln; end. Последний раз редактировалось lubov_morkov; 28.10.2010 в 19:14. |
28.10.2010, 19:19 | #7 |
Форумчанин
Регистрация: 05.04.2010
Сообщений: 410
|
все должно работать
ICQ: 593-013-807
|
28.10.2010, 19:22 | #8 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
она просто сливается с массивом.
перед Код:
Код:
にんじゃ
|
28.10.2010, 19:23 | #9 |
Пользователь
Регистрация: 21.05.2009
Сообщений: 37
|
))))))) точно
|
28.10.2010, 19:26 | #10 |
Форумчанин
Регистрация: 05.04.2010
Сообщений: 410
|
задача 2
Код:
Код:
ICQ: 593-013-807
Последний раз редактировалось Don Karleone; 28.10.2010 в 19:30. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Pascal, Одномерный массив | Nastik | Помощь студентам | 1 | 23.06.2010 22:15 |
Одномерный массив (pascal) | voodavari | Помощь студентам | 2 | 20.05.2010 07:16 |
Одномерный массив (Pascal) | Docen | Помощь студентам | 3 | 31.03.2010 09:02 |
Pascal. Одномерный массив. | Sendddd | Помощь студентам | 2 | 26.10.2009 21:11 |
Одномерный массив в Pascal | Стасссс | Помощь студентам | 3 | 15.03.2009 17:54 |