С Новым годом! Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 09.12.2012
Сообщений: 43

Точно и однозначно сформулировать условие задачи

21.12.2012, 06:41. Показов 1002. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите пожалуйста решить!
Заранее Спасибо!))

1. Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program Kr_N_4;
Const Max = 100; Type Mass = Array[0..Max] Of Integer;
Var X : Mass; I, N : Byte; 
Begin Write('Сколько элементов в массиве? '); ReadLn(N); 
    For I := 1 To N Do
    Begin X[i] := -50 + Random(101); Write(X[i]:5) End;
    For i:=2 to n-1 do
    If X[i] mod 2 = 0
    Then X[i]:= X[i]+1
    Else X[i]:= X[i]+X[n]; 
   For I := 1 To N Do Write(X[i]:5); WriteLn;
End.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
21.12.2012, 06:41
Ответы с готовыми решениями:

Точно и однозначно сформулировать условие задачи, решение которой приведено ниже
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже. program sort_nat; const nmax=100; type...

Точно и четко сформулировать условие задачи, которая решается в программе
1. Точно и четко сформулировать условие задачи, которая решается в данной программе: Program Kr_2_3; Var I, N : LongInt; S : Real; ...

Точно и четко сформулировать условие задачи, которая решается в приведенной программе
Не могу решить по контрольной несколько задач. Ели есть возможность помочь. Буду очень благодарна. 1. Точно и четко сформулировать...

1
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
 Аватар для TAVulator
4191 / 1292 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
21.12.2012, 07:24
в массиве к четным элементам прибавить единицу, к нечетным прибавить значение последнего элемента.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
21.12.2012, 07:24
Помогаю со студенческими работами здесь

Точно и четко сформулировать условие задачи, которая решается в данной программе
2. Точно и четко сформулировать условие задачи, которая решается в данной программе: Program Kr_2_3; Var N : LongInt; S : Byte; Begin...

Точно и однозначно сформулировать условие задачи
Program Kr_N_4; Const NMax = 50; Type Mass = Array Of Real;; Var A : Mass; I, J, N: 1..NMax; C : Real; Begin Write('Размерность...

Точно и однозначно сформулировать условие задачи, решение которой приведено ниже
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже. program n_4; var s: string; p: real; i: byte; ...

сформулировать условие задачи
Помогите пожалуйста. Точно и четко сформулировать условие задачи, которая решается в данной программе: Program Kr_2_3; Var N, Vs,...

Точно и однозначно сформулировать условие задачи
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже. Program Kr_N_4; Var A : Array Of Integer; I, J, N, M:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути
Programma_Boinc 01.01.2026
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru