В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История

Вмассиве ненулевых целых чисел определить сколько раз элементы массива при просмотре от его начала меняют знак. например, в массиве 10, -4, 12, 56, -4, -89 знак меняется 3 раза. реализовать ввод размерности и возможность инициализации элементов массива.

Показать ответ
Ответ:
persik21783086532
persik21783086532
31.08.2020 20:18
//PascalABC.Net 3.2
begin
var a: array of integer;
setLength (a, readinteger('Введите размерность массива: '));
var count:=0;
for var i:=0 to length(a)-1 do a[i]:=readinteger ('Введите элемент: ');
for var i:=1 to length(a)-1 do if (a[i-1]*a[i])<0 then count+=1;
write ('Кол-во раз: ', count);
end.
0,0(0 оценок)
Ответ:
эрж1
эрж1
31.08.2020 20:18
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота