Регистрация
Lizkic
16.11.2021 23:33
Информатика
Есть ответ 👍

Pascalabc создать программы

142
143
Посмотреть ответы 1

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

polina4281
polina4281
4,6(15 оценок)
Const   n = 20; var   a: array[1..n] of integer;   i: integer;   flag: boolean; begin   randomize;   writeln('элементы массива');   for i : = 1 to n do   begin       a[i] : = random(19999) - 9999;       write(a[i]: 6);   end;   writeln;   i : = 1;   flag : = false;   repeat       flag : = (sign(a[i]) = sign(a[i + 1]));       i : = i + 1   until flag or (i > n);   if flag then writeln('есть пара соседних элементов с одним знаком')   else writeln('нет пар соседних элементов с одним знаком') end. тестовое решение: элементы массива   2440 -2414 -3192 -6912 -8537  7364  2869 -2505  8875  2662    401  7398  2213  8804  2039  1485  4213  8359 -2410 -5844 есть пара соседних элементов с одним знаком

Популярно: Информатика