Как найти отрицательный элемент в одномерном массиве

Напишем программу, которая определяет номер отрицательного элемента в массиве.

 Нахождение номера отрицательного элемента в массиве.

program massiv9;
uses crt;
const N=10;
type x=array [1..N] of integer;
var a:x;
i:integer;
k:integer;
begin
clrscr;
randomize;
for i:=1 to N do
begin
a[i]:= -10+random (91);
write (A[i]:4)
end;
writeln;
k:=0;
for i:=1 to N do
if a[i] <0 then
begin
k:=I
end;
if k>0 then
writeln (‘Индекс отрицательного элемента = ’,k)
else
writeln (‘В массиве нет отрицательных элементов');
readln
end.

В строке №7 мы записали переменную для хранения индекса отрицательного элемента.

В строке №19 мы задаем условие, при котором перебираются все 10 сгенерированных чисел и среди них ищется отрицательный, и если отрицательное число находится, то его индекс (номер) заносится в переменную K (строка №21).

В строке №23 записывается условие: если переменная «K» больше 0 (т.е. есть отрицательные элементы), то на экран выводится сообщение (строка №24). В обратном случае (если нет отрицательных элементов, и «K» так и останется равным 0), выведется сообщение (строка №26)

Из всех сгенерированных чисел у нас 2 числа отрицательные. Так как цикл начинался с первого элемента и закончился на 10-ом элементе, у нас выводится номер последнего найденного отрицательного числа (т.к. именно этот номер последним был записан в переменную «K»). Если бы нам нужно было найти номер первого отрицательного числа, то мы бы заменили строку №16 (for i:=1 to N do) на такую строку: for k:=N downto 1 do (т.е. перебирали бы элементы с конца).

Предыдущая статья : Определение наличия в массиве отрицательных чисел.

Оглавление : Уроки Паскаль.

Следующая статья : Двумерные массивы в Pascal.

составить функцию, которая в одномерном массиве определяет первый от начала отрицательный элемент. в случае нахождения отрицательного числа функция возвращает найденное число, в противном случае возвращает 1. С помощью функции определить в каждой строке матрицы первые отрицательные элементы, которые записать в новый массив, вывести полученный массив.

       #include "stdafx.h" 
       #include "stdio.h" 
       #include "conio.h" 
       #include "math.h"

       const int k = 12, l = 14;

       int per_otr(int d[], int *l)
       {
        int otr = 1;
        for (int i = 0; i<*l; i++)
        {
          if (d[i]<0)
          otr = d[i];
        }
        return otr;
      }
      void vvod2(int a[][l], int *n, int *m)
      {
        printf("Vvedite kolichestvo strok:n");
        scanf("%d", n);
        printf("Vvedite kolichestvo stolbcov:n");
            scanf("%d", m);
            for (int i = 0; i<*n; i++)
            {
                printf("Vvedite %d stroky:n", i + 1);
                for (int j = 0; j<*m; j++)
                    scanf("%d", &a[i][j]);
            }
        }
        void vivod(int a[], int t)
        {
            for (int i = 0; i<t; i++)
                printf("%d ", a[i]);
        }
        void vivod2(int a[][l], int n, int m)
        {
            for (int i = 0; i<n; i++)
            {
                for (int j = 0; j<m; j++)
                    printf("%d ", a[i][j]);
                printf("n");
            }
        }
        void perepis(int ar[][l], int a[], int n, int m, int *t)
        {
            *t = 0;
            for (int i = 0; i<n; i++)
                for (int j = 0; j<m; j++)
                    if ((per_otr(ar[j], &n))!=1)
                    {
                        a[*t] = ar[i][j];
                        (*t)++;

                    }
        }

        void swap(int *a, int *b)
        {
            int buf = *a;
            *a = *b;
            *b = buf;
        }

        void sort(int a[], int t)

        {
            for (int i = 0; i<t - 1; i++)
                for (int j = i + 1; j<t; j++)
                    if (a[i]>a[j])
                        swap(&a[i], &a[j]);
        }



        int main()
        {
            int ar[k][l], a[k], n, m, t;
            vvod2(ar, &n, &m);
            printf("Isxodnii massiv:n");
            vivod2(ar, n, m);
            perepis(ar, a, n, m, &t);
            printf("Chisla  v new massive:n");
            vivod(a, t);
            printf("n");
            sort(a, t);
            printf("Otsortirovannie Chisla  v new massive:n");
            vivod(a, t);
            _getch();
            return 0;
        }

Чуть-чуть поправил решение предыдущег автора

uses crt;
var a:array [1..100] of integer;
i,n,max,j:integer;
begin
clrscr;
write(‘N=’);
readln(n);

for i:=1 to n do
begin
write(‘A[‘,i,’]=’);
readln(a[i]);
end;

clrscr;

writeln(‘Massiv A: ‘);
for i:=1 to n do
write(a[i],’ ‘);

writeln;
max:=a[1];
for i:=1 to n do
begin
if (a[i]<0) and (a[i]>max) then
begin
max:=a[i];
j:=i;
end;
end;

if max<0 then
writeln(‘Max sredi otric=’,max,’ ego nomer=’,j)
else
writeln(‘Otricat net’);
readkey
end.

Обосрамс ШрамовОракул (57403)

4 года назад