@Faust_36rus

const n=40;
var
x: array [1..n] of integer;
y, k: integer;
t: boolean;
Написать программу для решения следующей задачи:
20) переменной t присвоить значение true, если элементы массива x упорядочены строго по возрастанию, и значение false иначе;
21) переменной t присвоить значение true, если в массиве x нет нулевых элементов и при этом положительные элементы чередуются с отрицательными, и значение false иначе;
22) переменной k присвоить либо номер первого вхождения у в массив x, либо число n+1, если y не входит в x;
23) вычислить y=x1 + x1x2 + x1x2x3 + x1x2...xm, где m -- либо номер первого отрицательного элемента массива x, либо число n, если в массиве x нет отрицательных элементов.

0

@mss

Написуй, никто не возражает.

0