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

1

Найти в одномерном масиве первое положительное число

14.09.2010, 17:07. Показов 3824. Ответов 4

0

Почетный модератор

14.09.2010, 17:10

2

0

В астрале

14.09.2010, 17:27

3

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

#include <iostream>
 
int main()
{
   const int size=10;
   int A[size];
   std::cout<<"Enter elements of arrayn";
   for(int i=0; i<size; ++i)
   {
      std::cout<<"->";
      std::cin>>A[i];
   }
   for(int i=0; i<size; ++i)
   {
      if(A[i]>0)
      {
         std::cout<<A[i]<<'n';
         break;
      }
   }
   return 0;
}

1

Почетный модератор

14.09.2010, 17:29

4

Lavroff, хм… А почему бы не выбрать элемент сразу при вводе? )

0

В астрале

14.09.2010, 17:31

5

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

#include <iostream>
 
int main()
{
   const int size=10;
   int A[size];
   int res, cnt=0;
   std::cout<<"Enter elements of arrayn";
   for(int i=0; i<size; ++i)
   {
      std::cout<<"->";
      std::cin>>A[i];
      if(A[i]>0)
      {
         cnt++;
         if(cnt==1)
            res=A[i];
      }
   }
   std::cout<<res<<'n';
   return 0;
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14

#include <iostream>
 
int main()
{
   const int size=5;
   int*A;
   A=new int[size];
   for(int i=0; i<size; ++i)
      std::cin>>A[i];
   while(*(++A)<0)
      ;
   std::cout<<*A<<'n';
   return 0;
}

1

Свойство

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

нечетные     

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.