В одномерном массиве определить количество двух соседних положительных чисел

@Deboshir · Регистрация: 16.10.2015

Author24 — интернет-сервис помощи студентам

Напишите код пожалуйста

.Определить в одномерном числовом массиве A, состоящем из n элементов, число соседств из двух положительных чисел.

@CodeR · 17.10.2015, 07:37

Pascal

Const nmax=100;
Var A:array[1..nmax] of integer;
    i, n, k: integer;
Begin
    Repeat
      write('Введите N: ');
      readln(n);
    Until (n>0)and(n<=nmax);
    writeln('Введите ',N,' элементов');
    For i := 1 to n do
     read(A[i]);
    k:=0;
    For i:=1 to n - 1 do
     if (A[i] > 0 ) and (A[i + 1] > 0) then inc(k);
    writeln('Число соседств из двух положительных элементов = ',k);
    readln;
End.

@Deboshir 0 / 0 / 0 Регистрация: 16.10.2015 Сообщений: 18
		1
	В одномерном массиве определить количество двух соседних положительных чисел 16.10.2015, 16:39. Показов 1519. Ответов 1 Метки нет (Все метки) Напишите код пожалуйста .Определить в одномерном числовом массиве A, состоящем из n элементов, число соседств из двух положительных чисел. 0

	17.10.2015, 07:37

В одномерном массиве определить количество двух соседних положительных чисел

Решение