Дано целое число n и массив случайных положительных и отрицательных чисел T[1..n](T[i]:=random(n)-n div 2)в массиве Т определить число соседств двух положительных чисел и двух чисел разного знака.
Дано целое число n и массив случайных положительных и отрицательных чисел T[1..n](T[i]:=random(n)-n div 2)в массиве Т определить число соседств двух положительных чисел и двух чисел разного знака.
Гость
Ответ(ы) на вопрос:
Гостьconst n = 100;
var
a: array[1..n] of real;
i,j,k: integer;
begin
writeln('Число элементов в массиве (k<=100)');
readln(k);
j := 0;
for i := 1 to k do
a[i] := random(101) - 50;
for i := 2 to k do
begin
if (a[i-1]>0) and (a[i]>0) or (a[i-1]*a[i]<0) then j:=j+1;
end;
writeln(j);
end.
Не нашли ответ?
Похожие вопросы