Определить количество соседств двух положительных / двух отрицательных чисел

@artem1994 · Регистрация: 11.10.2012

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

Дано линейную таблицу, которая содержит N действительных чисел. Составить алгоритм определения количества соседств двух положительных чисел и количества соседств двух отрицательных чисел.

@КонецСвета · 12.10.2012, 13:10

если определить количество именно соседств, а не элементов...

Pascal

uses crt;
const nmax=50;
var a: array [1..nmax] of integer;
    i,n,kp,ko: byte;
 
begin
write('Количество элементов, не более ',nmax,', n='); readln(n);
writeln('Массив');
for i:=1 to n do
    begin
    a[i]:=random(199)-99;
    write(a[i]:4);
    if i>=2 then
       begin
       if (a[i-1]<0) and (a[i]<0) then inc(ko);
       if (a[i-1]>0) and (a[i]>0) then inc(kp);
       end;
    end;
writeln;
writeln('Положительных соседств ',kp);
writeln('Отрицательных соседств ',ko);
end.

@artem1994 0 / 0 / 0 Регистрация: 11.10.2012 Сообщений: 15
		1
	Определить количество соседств двух положительных / двух отрицательных чисел 11.10.2012, 12:56. Показов 2283. Ответов 1 Метки нет (Все метки) Дано линейную таблицу, которая содержит N действительных чисел. Составить алгоритм определения количества соседств двух положительных чисел и количества соседств двух отрицательных чисел. 0

	12.10.2012, 13:10

Определить количество соседств двух положительных / двух отрицательных чисел

Решение