>

В массиве с={1,2,-3,0,-1,-7,-9,9,10,-3} найти количество соседств двух положительных и количе??тво

В массиве с={1,2,-3,0,-1,-7,-9,9,10,-3} найти количество соседств двух положительных и количе??тво соседств двух отрицательных элементов массива,проверьте пожалуйста программу , что неправильно ?
var
C:ARRAY[1..10]of integer = (1,2,-3,0,-1,-7,-9,9,10,-3);
i:=i+1;
i,n,t,k:integer;
begin
function controll (C:ARRAY):boolean;
var i:integer;
if ((c[i]>0)
and (c[i+1]>0))
or ((c[i]<0)and
(c[i+1]<0))
then
k:=k+1;
end.
Close (F);
repeat
write('C: ');
readln(C);
until (C>0)and(C<=10);
writeln('Введите ',C,' элементов');
for i:=1 to 10 do
i:=i+1;
read(C[i]);
for i:=1 to 10 do
i:=i+1;
write('C: ');
readln(C);
repeat
write('C: ');
readln(C);
until (C<-3)and(C<=2);
writeln('Введите ',C,' элементов');
C:boolear;
writeln('C');
end.
//основная программа
Close File (F).
Категория: Информатика 3 года назад
На вопрос 3 года назад
Кузя Сидоров
Var
c:ARRAY[1..10]of integer = (1,2,-3,0,-1,-7,-9,9,10,-3);
i,k1,k2:integer;
begin
k1:=0; k2:=0;
for i:=1 to 9 do
 begin
 if (c[i]>0)and(c[i+1]>0) then k1:=k1+1;
 if (c[i]<0)and(c[i+1]<0) then k2:=k2+1;
 end;
writeln('k1 = ',k1,' k2 = ',k2);
end.
Результат:
k1 = 2 k2 = 2
Ответ получен 3 года назад
ЕЛИНА ЛЕЩЕНКО

Пожалуйста зарегистрируйтесь/войдите для ответа на вопрос.  Нажмите для входа

Войти на сайт