IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Обработка массивов, Помогите ,пожалуйста, написать программу!!!
Bespechnij Angel
сообщение 28.02.2009 12:47
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +


Дан массив D(24) со случайными числами от -15 до 42

Нужно:

1) Поменять все 5 этого массива на 1.

2) Поменять местами 4 и 6 элементы массива.

3) Найти сколько 5 в массиве и подсчитать их сумму.

4) Найти максимальное число массива.

blink.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Client
сообщение 28.02.2009 13:05
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


В FAQ'е есть все что надо
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Vinchkovsky
сообщение 28.02.2009 13:06
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 98
Пол: Мужской
Реальное имя: Andriy

Репутация: -  0  +


В чем проблемы? В одном цикле пройдите масив, проверяя каждый элемент по каждому из условий. Пункт 2 выполняйте сначала:
D[4]:=D[4]+D[6];
D[6]:=D[4]-D[6];
D[4]:=D[4]-D[6];


Вводьте дополнительные переменные Max, fiveQuantity для поиска макс. элемента и количества 5, и проверяйте в цикле:
if D[i]>Max then Max:=D[i];
if D[i]=5 then
   begin
      D[i]:=1;
      Inc(fiveQuantity)
   end;

Не забудьте прежде присвоить переменной Max значение первого элемента.
Сумму пятерок выводим умножением fiveQuantity на 5 в процедуре вывода.

Если понадобится, элементы массива генерируем в цикле таким образом:
D[i]:=random(58)-15;

Процедура randomize пишется опционально.

В программу соберете сами?

Сообщение отредактировано: Vinchkovsky - 28.02.2009 13:11
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 24.07.2025 9:13
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"