|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.03.2012, 22:11 | #1 |
Новичок
Джуниор
Регистрация: 21.03.2012
Сообщений: 3
|
Ребят, что я делаю не так? одномерный массив.
дан массив целых чисел из отрезка [-150;150].Определить, сумму четных , положительных элементов?
вот код, как я сделала:uses crt; var a:array[1..100] of integer; i: byte; n,k:integer; begin k:=0; writeln(ââåäèòå ðàçìåðíîñòü ìàññèâà); readln(n); for i:=1 to n do begin a:=random(301)-150; write(a:5); end; write; for i:=i to n do if (a>0) and (a mod 2=0) then k:=k+a; writeln(k); end. почему-то у меня выходят наоборот нечетные элементы, и сумма странная? |
22.03.2012, 22:51 | #2 |
Пользователь
Регистрация: 27.02.2010
Сообщений: 90
|
Код:
как-то так
|
22.03.2012, 23:17 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Код:
p.s. чтобы числа были случайными, нужно в начале программы вызвать иницилизацию сч.случайны чисел: Код:
|
26.03.2012, 03:56 | #4 |
Форумчанин
Регистрация: 05.09.2011
Сообщений: 869
|
кеша, а этот код вообще компилируется?.. Боюсь, ты привела не окончательный вариант программы..
Главная твоя ошибка в том, что ты используешь идентификатор массива без индексов (Arhangel7 уже это сказал тебе, но не очень внятно). Но ее не должен был пропустить компилятор. Так что не совсем ясно, что именно ты имела в виду.. Скорее всего, тебя подкосил неверный предел в рабочем цикле (надо 1, у тебя i). Вот тебе твой код, подправленный (что сказал, и еще пара исправлений). Кстати, для определения четности лучше использовать встроенную функцию odd. И старайся форматировать код - ошибки будет легче искать. Успехов тебе. Код:
Предпочитаю на "ты".
Последний раз редактировалось TinMan; 26.03.2012 в 03:58. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Что я делаю не так | rj-45 | Microsoft Office Excel | 7 | 22.11.2011 10:21 |
Что не так делаю? | L6go1as | Общие вопросы C/C++ | 5 | 28.10.2011 07:54 |
Одномерный массив что я делаю не так | Fox-mts | Общие вопросы C/C++ | 3 | 18.04.2011 19:17 |
Объсните что не так делаю | Crudelis | Общие вопросы C/C++ | 4 | 10.06.2010 00:26 |
Visual C++: Что не так делаю? | N!ckeL | Помощь студентам | 8 | 19.05.2008 11:28 |