Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [pascal] массивы, На нахождение элементов массива 
V
    Опции темы
xF1x
Дата 3.4.2008, 17:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 130
Регистрация: 18.3.2008

Репутация: 0
Всего: 0
Привет всем! помогите пожалуйста решить школьную задачу! предупреждаю! только начали изучать массивы, так что как можно легче помогите! Вот такая задача.
Посчитать количество четных элементов массива заданного случайным числом! 
БУДУ ОЧЕНЬ БЛАГОДАРЕН! ЗА РАНЕЕ СПАСИБО!
PM MAIL   Вверх
_FlasH_
Дата 3.4.2008, 18:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 1.2.2008

Репутация: нет
Всего: нет
Цитата(xF1x @ 3.4.2008,  17:53)
Привет всем! помогите пожалуйста решить школьную задачу! предупреждаю! только начали изучать массивы, так что как можно легче помогите! Вот такая задача.
Посчитать количество четных элементов массива заданного случайным числом! 
БУДУ ОЧЕНЬ БЛАГОДАРЕН! ЗА РАНЕЕ СПАСИБО!

Какая размерность массива? Элементам массива присваивать случайные значения? Поподробней скажи..
PM MAIL   Вверх
xF1x
Дата 3.4.2008, 20:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 130
Регистрация: 18.3.2008

Репутация: 0
Всего: 0
Одномерный массив! присваивать случайные числа!
PM MAIL   Вверх
xF1x
Дата 3.4.2008, 21:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 130
Регистрация: 18.3.2008

Репутация: 0
Всего: 0
ПАРНИ НУ ПОМОГИТЕ КТО НИБУДЬ! ДЛЯ ВАС ЖЕ ЭТО РАЗ ПЛЮНУТЬ!
PM MAIL   Вверх
Rodman
Дата 3.4.2008, 22:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122
Код

program Project1;

uses
  Crt;
const N=10;
var mas:array [1..N] of integer;
    i, count:Integer;
begin
  randomize;
  count:=0;
  for I := 1 to N do
  begin
    mas[i]:=random(N*2);
    if(mas[i] mod 2 = 0)then
      inc(count);
    Write(mas[i],'-');
  end;
  Writeln('Result =',count);
  readln;
end.




--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
xF1x
Дата 3.4.2008, 22:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 130
Регистрация: 18.3.2008

Репутация: 0
Всего: 0
А можно как нибудь чтобы сразу шло var без 3 и 4 ой строк, а то мы такого еще не проходили!))
PM MAIL   Вверх
Rodman
Дата 3.4.2008, 22:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122
uses - команда для подключения библиотеки.
crt - и есть подключаемая библиотека...

можешь попробовать удалить... если скомпилиться - можешь работать!


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
xF1x
Дата 3.4.2008, 22:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 130
Регистрация: 18.3.2008

Репутация: 0
Всего: 0
Спасибо большое! и без этих команд работает! спасибо огромное! выручил!
PM MAIL   Вверх
Rodman
Дата 3.4.2008, 23:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122
xF1x, и последнее... видишь вверху смайл и возле него написано "Пометить решенным"

отметь


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0464 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.