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

1

Найти порядковый номер первого положительного элемента массива

18.12.2012, 17:38. Показов 3059. Ответов 1

0

18.12.2012, 19:19

2

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

Решение

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 <iostream>
using namespace std;
 
int main()
{
    setlocale(LC_ALL, "Russian");
 
    int arr[10];
    int n = -1;
 
    cout << "Введите 10 чисел: ";
    for (int i=0; i<10; i++)
        cin >> arr[i];
 
    for (int i=0; i<10; i++)
        if (arr[i] > 0)
        {
            n = i;
            break;
        }
 
    if (n != -1)
        cout << "Порядковый номер первого положительного элемента в массиве " << n+1 << endl;
    else
        cout << "В массиве нет положительных элементов" << endl;
 
    system("pause");
    return 0;               
}

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.