![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
Bespechnij Angel |
![]() ![]()
Сообщение
#1
|
![]() Группа: Пользователи Сообщений: 1 Пол: Мужской Репутация: ![]() ![]() ![]() |
Дан массив D(24) со случайными числами от -15 до 42
Нужно: 1) Поменять все 5 этого массива на 1. 2) Поменять местами 4 и 6 элементы массива. 3) Найти сколько 5 в массиве и подсчитать их сумму. 4) Найти максимальное число массива. ![]() |
Client |
![]()
Сообщение
#2
|
Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 865 Пол: Мужской Реальное имя: Вячеслав Репутация: ![]() ![]() ![]() |
В FAQ'е есть все что надо
|
Vinchkovsky |
![]()
Сообщение
#3
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 98 Пол: Мужской Реальное имя: Andriy Репутация: ![]() ![]() ![]() |
В чем проблемы? В одном цикле пройдите масив, проверяя каждый элемент по каждому из условий. Пункт 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 |
![]() ![]() |
![]() |
Текстовая версия | 24.07.2025 9:13 |