|
0 / 0 / 0 Регистрация: 10.11.2021 Сообщений: 19 |
|
|
1 |
|
Найти наименьший нечетный элемент массива и его номер16.11.2021, 17:27. Показов 853. Ответов 1
Помогите пожалуйста написать программу с комментарием.
0 |
|
Programming Эксперт 94731 / 64177 / 26122 Регистрация: 12.04.2006 Сообщений: 116,782 |
16.11.2021, 17:27 |
|
Ответы с готовыми решениями:
Найти наименьший элемент и его номер Найти наименьший элемент массива и его номер
1 |
Определить последний нечетный элемент массива M и его номер|
Cyborg Drone Модератор 9593 / 4912 / 3245 Регистрация: 17.08.2012 Сообщений: 15,346 |
||||
|
18.11.2021, 02:14 |
2 |
|||
0 |
var a:array [1..100] of integer;
min,i,n,s:integer;
begin
write('Введите размер массива от 1 до 100 n=');
readln(n);
writeln('Введите элементы массива, целые числа');
for i:=1 to n do readln(a[i]);
min:=0;
for i:=1 to n do
if odd(a[i])then
begin
if min=0 then min:=a[i]
else if a[i]<min then min:=a[i];
end;
if min=0 then write('Нечетных элементов нет')
else write('Минимальный нечетный=',min);
end.
Условие задачи: Массив А вводится с клавиатуры. Вывести только нечетные элементы. Размер произвольный. (Язык Паскаль)
Сложность: легкая.
Решение задачи
Для начала продумаем наше решение. Тут довольно всё просто. Сначала с помощью одного цикла заполним наш массив, потом с помощью другого выведем нечетные элементы.
Для того чтобы решить задачу нам понадобятся следующие переменные:
Начнем мы с каркаса нашей программы
type
massiv = array
[1..100] of
integer; // создаем свой тип данных для массива
var
n, i : integer; // объявляем
A : massiv; // переменные
begin
write('Введите длину массива : ');readln(n); // просим пользователя ввести длину массива
readln; // чтобы программа не закрывалась
end.
Тут мы создали свой тип данных для массива, как и зачем читайте ( тут ), объявили переменные, попросили пользователя ввести кол-во элементов массива.
Теперь давайте заполним наш массив:
for
i:=1
to
n do
// пускаем цикл для заполнения массива
begin
write('Введите ',i, ' элемент : '); readln(A[i]); // просим пользователя заполнить массив
end;
Ну а теперь нам надо вывести именно нечетные элементы, тут нам поможет условие:
Это условие определяет число на нечетность с помощью операции mod, которая ищет остаток от деления, читайте подробнее ( тут ), мы пишем:
for
i:=1
to
n do
// пускаем цикл для вывода нечетных элементов
begin
if
(A[i] mod
2
<> 0) then
// если текущее число нечетное, то
write(A[i], ' | '); // выводим его
end;
Мы в цикле проверяем каждое число на нечетность и если оно нечетное то выводим его.
Всё решение задачи Pascal
type
massiv = array
[1..100] of
integer; // создаем свой тип данных для массива
var
n, i : integer; // объявляем
A : massiv; // переменные
begin
write('Введите длину массива : ');readln(n); // просим пользователя ввести пароль
for
i:=1
to
n do
// пускаем цикл для заполнения массива
begin
write('Введите ',i, ' элемент : '); readln(A[i]); // просим пользователя заполнить массив
end;
write('Нечетные элементы : '); // для красоты
for
i:=1
to
n do
// пускаем цикл для вывода нечетных элементов
begin
if
(A[i] mod
2
<> 0) then
// если текущее число нечетное, то
write(A[i], ' | '); // выводим его
end;
readln; // чтобы программа не закрывалась
end.
Вот результат
Предыдущая
ПрограммированиеЗадачи по Pascal. Заменить элемент A[k] средним арифметическим K-первых элементов.
Следующая
ПрограммированиеЗадачи по Pascal. Найти наибольший элемент и его номер в массиве, элементы которого вводятся с клавиатуры. Размер произвольный.
Найти все нечетные элементы массива целых чисел на паскале.
На странице вопроса Найти все нечетные элементы массива целых чисел на паскале? из категории Информатика вы найдете
ответ для уровня учащихся 5 — 9 классов. Если полученный ответ не
устраивает и нужно расшить круг поиска, используйте удобную поисковую
систему сайта. Можно также ознакомиться с похожими вопросами и ответами
других пользователей в этой же категории или создать новый вопрос. Возможно,
вам будет полезной информация, оставленная пользователями в комментариях, где
можно обсудить тему с помощью обратной связи.
На чтение 2 мин.
Условие задачи: Массив А вводится с клавиатуры. Вывести только нечетные элементы. Размер произвольный. (Язык Паскаль)
Сложность: легкая.
Содержание
- Решение задачи
- Начнем мы с каркаса нашей программы
- Всё решение задачи Pascal
Решение задачи
Для начала продумаем наше решение. Тут довольно всё просто. Сначала с помощью одного цикла заполним наш массив, потом с помощью другого выведем нечетные элементы.
Для того чтобы решить задачу нам понадобятся следующие переменные:
- Переменная A — для массива
- Переменная n — для количества элементов массива
- Переменная i — для цикла.
Начнем мы с каркаса нашей программы
|
1 2 3 4 5 6 7 8 9 10 11 |
|
Тут мы создали свой тип данных для массива, как и зачем читайте ( тут ), объявили переменные, попросили пользователя ввести кол-во элементов массива.
Теперь давайте заполним наш массив:
|
1 2 3 4 |
|
Ну а теперь нам надо вывести именно нечетные элементы, тут нам поможет условие:
Это условие определяет число на нечетность с помощью операции mod, которая ищет остаток от деления, читайте подробнее ( тут ), мы пишем:
|
1 2 3 4 5 |
|
Мы в цикле проверяем каждое число на нечетность и если оно нечетное то выводим его.
Всё решение задачи Pascal
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
|