Информатика: Bebenejisisosowbbe wBhiei jwbebbsbeG

popygai2

11.10.2021 18:11

Информатика

Есть ответ 👍

Bebenejisisosowbbe wBhiei jwbebbsbeG

247

267

Посмотреть ответы 2

Ответы на вопрос:

Pro228Pro

Информатика

4,5(17 оценок)

извини конечно но где фото или что то другое

nastyaetoi

Информатика

4,4(59 оценок)

Program n1; type z = array of integer; var a: z; i,n,k: longint; begin writeln('введите кол-во элементов в массиве: '); readln(n); setlength(a,n); writeln('введите массив: '); for i: =0 to n-1 do readln(a[i]); k: =0; for i: =1 to n-1 do if a[i]*a[i-1]< 0 then k: =k+1; writeln('количество ',k); end.