Как найти положительный массив

1

Найти минимальный положительный элемент массива

21.11.2018, 11:31. Показов 13200. Ответов 4

0

Котовчанин

21.11.2018, 12:16

2

Marty321, а в массиве могут быть отрицательные числа?

0

21.11.2018, 12:26

3

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

//---------------------------------------------------------------------------
#include <vcl>
#include <iostream>
#include <limits>
#pragma hdrstop
//---------------------------------------------------------------------------
#pragma argsused
using namespace std;
 
int main()
{
  srand(time(0));
  int A[15], n, Min = numeric_limits<int>::max();
 
  cout << "Massiv A:n";
  for(n = 0; n < 15; n++)
  {
      A[n] = rand()%31 - 15;
      cout << A[n] << " ";
  }
 
  for(n = 0; n < 15; n++)
      if((A[n] >= 0) && (A[n] < Min))
          Min = A[n];
 
  cout << "nMin = " << Min << "n";
  system("pause");
  return 0;
}

0

21.11.2018, 15:18

4

Сообщение было отмечено Marty321 как решение

Решение

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#include <iostream>
using namespace std;
 
int main()
{
    int k=0;
    const int n=15;
    double A[n], min=0.0;  
    
    cout <<"Enter "<<n<<" elements:n";
    for (int i = 0; i < n; i++)
    {
        cin >> A[i];
        if (A[i] > 0.0) k++;
        if (A[i] > 0.0 && (k==1 || A[i]<min)) min=A[i];        
    }    
    cout <<"min_positive="<<min<< endl;    
system("pause");
return 0;
}

1

Котовчанин

21.11.2018, 15:21

5

1
2
3
4
5
6

int main()
{
    std::vector<int> v{ 1, 2, 3, -6, 1, 55, 9, -1, 44 };
    auto end = std::remove_if(v.begin(), v.end(), [](int n) { return n < 0; });
    std::cout << *std::min_element(v.begin(), end);
}

0

Свойство

Запись свойства

нечетные     

a[i] mod 2 <> 0

кратные k     

a[i] mod k = 0

некратные k

a[i] mod k <> 0

 на четных местах    

i mod 2 = 0

на нечетных местах   

i mod 2 <> 0

положительные

a[i] > 0

неотрицательные 

a[i] >= 0

в интервале (х1; х2)  

(a [i]>x1) and (a [i]<x2)

Использование цикла с параметром (.pas)

Исходные данные: массивa, содержащий n вещественных чисел.
Результат: k — номер первого положительного элемента массива .
Метод решения:
— просматриваем массив с конца, если находим положительный элемент, то переменной k присваиваем номер данного положительного элемента;
— если находим положительный элемент с меньшим номером, то меняем значение переменной k;
— если значение k осталось равным 0, то положительных элементов в данном массиве нет.
.

Использование цикла с постусловием (.pas)

Использование цикла с предусловием (.pas)

№

Фрагмент программы

Блок — схема

Вычисление суммы всех элементов массива
sum:=0;
for i:=1 to n do sum:=sum+x[i];

Вычисление среднего арифметического чётных элементов массива
sum:=0;
kol:=0;
for i:=1 to n do begin
sum:=sum+a[i];
kol:=kol + 1;
end;
if kol=0 then writeln (‘чётных чисел нет’)
else writeln (‘среднее чётных чисел равно’, sum/kol);

Найти произведение всех элементов массива
pr:=1;
for i:=1 to n do pr:=pr*a[i];

Количество четных элементов массива
kol:=0;
for i:=1 to n do
if (a[i] mod 2=0) then kol:=kol+1;

Удвоить все положительные элементы массива, и поменять знак у остальных
for i:=1 to n do
if  a[i]>0 then a[i]:=a[i]*2
else a[i]:=-a[i];

Перестановка всех элементов массива в обратном порядке
for i:=1 to n div 2  do
begin
k:=x[i];
x[i]:=x[n+1-i];
x[n+1-i]:=k;
end;

Перестановка соседних элементов массива
for i:=1 to n div 2 do
begin
k:=x[2*i-1];
x[2*i-1]:=x[2*i];
x[2*i]:=k;
end;

Обмен половин массива
k:=n div 2;
for i:=1 to n div 2 do
begin
c:=a[i];
a[i]:=a[k+i];
a[k+i]:=c;
end;

Проверить, есть ли в массиве четные числа
kol:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then kol:=kol+1;
if kol=0 then writeln (‘нет четных’)
else writeln (‘есть четные’);

Проверить, что массив упорядочен строго по возрастанию
flag:=0;
for i:=1 to n-1 do
if a[i]>a[i+1] then flag:=flag+1;
if flag=0 then writeln (‘ упорядочен ’)
else writeln (‘неупорядочен ’);

Поиск максимального элемента массива (границы изменения значений элементов массива неизвестны)
max:=a[1];
for i:=2 to n do 
if a[i]>max then max:=a[i];
write(‘максимальный элемент max= ‘, max);
end.

Значения элементов массива принадлежат промежутку от -500 до 500. Найти максимальный элемент массива.
max:=-501;
for i:=1 to n do
if a[i]>max then max:=a[i];

Поиск количества элементов произвольного массива равных максимальному
max:=a[1];
nmax:=1;
for i:=2 to n do
if  a[i] > max then begin
max:=a[i];
nmax:=1;
end
else
if a[i]=max then
nmax:=nmax+1;

Найти номер максимального элемента массива, если он единственный, или количество максимальных элементов, если их несколько.
max:=a[1];
nmax:=1;
for i:=2 to n do
if  a[i] > max then begin
max:=a[i];
nmax:=1;
j:=i;
end
else
if a[i]=max then
nmax:=nmax+1;
if nmax=1 then writeln(‘j=‘,j) else writeln (‘nmax=‘, nmax);

Поиск номера максимального элемента
imax:=1;
for i:=2 to n do
if a[i]>a[imax] then imax:=i;

Значения элементов массива принадлежат диапазону от – 500 до 500. найти максимальный отрицательный элемент массива. Гарантируется, что отрицательные  элементы есть.
max:=-501;
for i:=1 to n do
if (a[i]<0) and (a[i]>max) then max:=a[i];

Номера двух элементов массива наименее отличающихся друг от друга
const N=7;
var a:array [1..N] of integer;
i,j,min,min2,s:integer;
begin
for i:=1 to N do read (a[i]);
s:=abs(a[1]-a[2]);
min:=1;
min2:=2;
for i:=1 to N -1 do
for j:=i+1 to N do
if abs(a[i]-a[j])<s then begin
s:=abs(a[i]-a[j]);
min:=i;
min2:=j;
end;
writeln(‘номера двух элементов массива наименее отличающихся друг от друга:’,min,’и’, min2);
end.

Номера двух последовательных элементов массива наименее отличающихся друг от друга
const N=7;
var a:array [1..N] of integer;
i,j,min,min2,s:integer;
begin
for i:=1 to N do read (a[i]);
s:=abs(a[1]-a[2]);
min:=1;
min2:=2;
for i:=1 to N -1 do
if abs(a[i]-a[i+1])<s then begin
s:=abs(a[i]-a[i+1]);
min:=i;
min2:=i+1;
end;
writeln(‘номера двух соседних элементов наименее отличающихся друг от друга:’,min,’и’, min2);
end.