Как найти нечетный элемент в массиве pascal - AutoPluse.ru

0 / 0 / 0

Регистрация: 10.11.2021

Сообщений: 19

Найти наименьший нечетный элемент массива и его номер

16.11.2021, 17:27. Показов 853. Ответов 1

Помогите пожалуйста написать программу с комментарием.
Дано: массив А(N). Найти наименьший нечетный элемент массива и его номер. Размер массива произвольный.

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

16.11.2021, 17:27

Ответы с готовыми решениями:

Определить последний нечетный элемент массива M и его номер
Определить последний нечетный элемент массива M и его номер очень нужна эта программа)

Найти наименьший элемент и его номер
Составить программу в Паскале для обработки массива из 15 чисел Х = (0; 1,25; –371; 0,5; –0,1; 1,2;…

Найти наименьший элемент массива и его номер
var:array of integer i,n,k min,n min :integer begin writeln (введите число элементов…

Найти наименьший элемент массива и его порядковый номер
В массиве из 10 целых чисел найти наименьший элемент и его порядковый номер , и если можно блок…

Найти наименьший элемент и его номер среди элементов массива Х, стоящих на четных местах
Дано: Массив Х(14).
Найти наименьший элемент и его номер среди элементов массива Х, стоящих на…

Cyborg Drone

Модератор

9593 / 4912 / 3245

Регистрация: 17.08.2012

Сообщений: 15,346

18.11.2021, 02:14

Pascal

const
  n = 15; //размер массива
var
  a: array[1..n] of integer; //массив
  i, m: integer; //счётчик, номер минимального нечётного элемента
begin
  randomize;
  writeln('Исходный массив:');
  for i := 1 to n do //цикл генерации и печати массива
    begin
      a[i] := 99 - random(199); //генерируем элемент массива в диапазоне [-99..99]
      write(a[i]:4) //печатаем элемент массива, ширина печати 4 позиции
    end;
  writeln;
  m := 1; //ищем номер первого нечётного элемента
  while (m <= n) and not odd(a[m]) do inc(m); //пока номер не превысил размер массива и элемент чётный, увеличиваем номер
  for i := m + 1 to n do //цикл поиска номера минимального нечётного элемента массива
    if odd(a[i]) and (a[i] < a[m]) then m := i; //если элемент нечётный и меньше текущего минимального, запоминаем его номер
  if m <= n then //если найденный номер минимального элемента не более размера массива, то
    writeln('Минимальный нечётный элемент: ', a[m], ', его номер: ', m) //печатаем результат
  else writeln('Нечётные элементы не найдены') //иначе печатаем сообщение
end.

Источник

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.

Источник

Условие задачи: Массив А вводится с клавиатуры. Вывести только нечетные элементы. Размер произвольный. (Язык Паскаль)

Сложность: легкая.

Решение задачи

Для начала продумаем наше решение. Тут довольно всё просто. Сначала с помощью одного цикла заполним наш массив, потом с помощью другого выведем нечетные элементы.

Для того чтобы решить задачу нам понадобятся следующие переменные:

Переменная A — для массива

Переменная n — для количества элементов массива

Переменная i — для цикла.

Начнем мы с каркаса нашей программы

Тут мы создали свой тип данных для массива, как и зачем читайте ( тут ), объявили переменные, попросили пользователя ввести кол-во элементов массива.

Теперь давайте заполним наш массив:

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 — для цикла.

Начнем мы с каркаса нашей программы

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;

Ну а теперь нам надо вывести именно нечетные элементы, тут нам поможет условие:

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

Вот результат

Решение задачи

Начнем мы с каркаса нашей программы

Всё решение задачи Pascal

Не пропустите также: