Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.79/19: Рейтинг темы: голосов - 19, средняя оценка - 4.79
0 / 0 / 0
Регистрация: 01.03.2010
Сообщений: 3

4 программы на одномерные массивы.

06.06.2011, 14:22. Показов 3886. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте.
Есть 4 задачи, 2 простые, 2 посложнее. Надеюсь на вашу помощь по поводу первых двух простых задач. За задачи посложнее готов заплатить, только не смог найти соответствующий раздел. Если подскажете, буду благодарен.

Задачи ниже.

1. С клавиатуры вводится длина одномерного массива и его элементы. Подсчитать и вывести количество элементов, которые делятся на 5.
2. С клавиатуры вводится длина одномерного массива и его элементы. Составить новый массив с суммой нечетных цифр каждого элемента исходного массива.

Следующие две задачи вроде как сложнее, а может быть такие же простые как и первые две.

1. Вводится размер одномерного массива A(N) и его элементы. Удалить из исходного массива все элементы, у которых сумма всех делителей меньше 15. Результат вывести на экран.
2. Вводится размер двумерного массива A(N,M) и его элементы. Составить одномерный массив, содержащий номера столбцов, в которых все элементы кратны 5. Полученный массив вывести на экран.

Заранее благодарю!
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
06.06.2011, 14:22
Ответы с готовыми решениями:

одномерные массивы
Помогите с задачей: Поменять местами минимальный и максимальный элементы массива размера 10

Одномерные массивы
Задание. Написать программу для формирования и печати одномерного массива. Сформированный массив перед выводом на экран упорядочить по...

одномерные массивы
напашите пожалуйста код... Как удалить первый чётный элемент?

2
 Аватар для Vovcheg
38 / 38 / 18
Регистрация: 16.05.2011
Сообщений: 139
06.06.2011, 14:50
1)
Code
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var a:array[1..50] of integer;
i,n,s:integer;
begin
clrscr;
write('Размер массива:'); readln(n);
for i:=1 to n do begin
write('A[',i,']='); readln(a[i]);
if a[i] mod 5 = 0 then s:=s+1;
end;
write('Количество элементов, которые делятся на 5: ',s);
readln;
end.
0
0 / 0 / 0
Регистрация: 01.03.2010
Сообщений: 3
06.06.2011, 19:17  [ТС]
Спасибо. Подскажите где раздел на платное изготовление задач?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
06.06.2011, 19:17
Помогаю со студенческими работами здесь

одномерные массивы
Вставить минимальный элемент после последнего, равного заданному числу?. Вроде легко, но не могу...

Одномерные массивы.
1. Найдите общее кол-во собранного картофеля. Результаты сбора картофеля и названия бригад хранятся в соответствующих массивах. Определите...

Одномерные Массивы.
Уважаемый модератор помогите решить. В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму модулей элементов...

Одномерные массивы
Дан массив A(n) целых чисел. Каждый третий элемент массива заменить его порядковым номером. Вывести новый массив на печать. Помогите...

Одномерные массивы
Написать программу для формирования и печати одномерного массива. Сформированный массив перед выводом на экран упорядочить: расположить...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .
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. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru