Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 18.03.2018
Сообщений: 2
1

Дан массив содержащий r элементов. Определить количество нечетных элементов массива, среди них найти минимальный

18.03.2018, 12:12. Просмотров 1198. Ответов 1
Метки нет (Все метки)

Дан массив содержащий r элементов. Определить количество нечетных элементов массива, среди них найти минимальный
Примечание.

Программа должна содержать две процедуры (процедура нахождения нечетных элементов массива и процедура ввода массива).

Прошу помочь, долго пытался сам сделать, но так ничего не получилось.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.03.2018, 12:12
Ответы с готовыми решениями:

Дан массив x содержащий n элементов. Найти количество различных чисел среди элементов этого массива
Работает, только если все числа одинаковые, все числа разные или есть только два числа. В ряде...

Дан массив A[5,5]. Найти минимальный элемент среди элементов, расположенных в нечетных строках массива
Дан массив A. Найти минимальный элемент среди элементов, расположенных в нечетных строках...

Дан массив X(N,M). Среди нечетных строк массива определить количество элементов, равных первому элементу массива
Дан массив X(N,M). Среди нечетных строк массива определить количество элементов, равных первому...

Дан целочисленный массив X(N,M).среди элементов нечетных столбцов массива найти количество четных чисел
Дан целочисленный массив X(N,M).среди элементов нечетных столбцов массива найти количество четных...

1
Эксперт Pascal/Delphi
6272 / 4228 / 4613
Регистрация: 05.06.2014
Сообщений: 20,806
19.03.2018, 18:56 2
Лучший ответ Сообщение было отмечено TracyGod как решение

Решение

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
const
  n = 5;
 
type
  vector = array [1..100] of integer ;
 
var
  x: vector;
  mn, j, c: integer;
 
procedure InputVector(var a: vector);
var
  i: integer;
begin
  for i := 1 to n do
    read(a[i]);
end;
 
procedure DoVector(a: vector; var k: integer; var min: integer);
var
  i: integer;
begin
  min := Maxint;
  for i := 1 to n do
  begin
    if odd(a[i]) then 
      inc(k);
    if (odd(a[i])) and (a[i] < min) then 
      min := a[i];
  end;
end;
 
begin
  Writeln('Введите ', n, ' элементов массива: ');
  InputVector(x);
  Write('Массив: ');
  for j := 1 to n do
    Write(x[j]:4);
  Writeln;
  dovector(x, c, mn);
  Writeln('Количество нечетных: ', c);
  Writeln('Минимум среди нечетных: ', mn);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.03.2018, 18:56

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

Дан массив из 15 элементов A(15). Найти количество элементов массива меньших 0, и стоящих на нечетных местах
Дан массив из 15 элементов A(15). Найти количество элементов массива меньших 0, и стоящих на...

Найти сумму элементов массива с чётными номерами и среди них найти минимальный и количество, равных ему
Найти сумму элементов массива с четными номерами и среди них найти минимальный и кол-во элементов,...

Дан одномерный целочисленный массив из n элементов. Найти количество различных чисел среди элементов этого массива
Дан одномерный целочисленный массив из n элементов. Найти количество различных чисел среди...

Дан двумерный массив. Определить количество нечетных элементов массива.
Дан двумерный массив. Определить количество нечетных элементов массива.


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.