Это программирование, паскаль, нужно написать программу дан одномерный массив a, состоящий из n элементов, n – заданное натуральное число. если элементы массива составляют строго монотонную последовательность, то все положительные элементы массива заменить единицей, иначе оставить массив без изменения.

A: array[1..30000] of integer; n, i, k, z: integer; begin readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do if (a[i]< a[i+1]) then k: =k+1; for i: =1 to n do if (a[i]> a[i+1]) then z: =z+1; if (k=n) or (z=n) then for i: =1 to n do if a[i]> 0 then a[i]: =1; for i: =1 to n do writeln(a[i]); readln; end.

Const   n = 15; var   a: array[1..n] of integer;   i,sp,sn: integer; begin   randomize;   writeln('элементы массива');   sp: =0; sn: =0;   for i : = 1 to n do   begin       a[i] : = random(51)-25;       write(a[i]: 4);       if a[i]< 0 then sn: =sn+a[i]       else sp: =sp+a[i]   end;   writeln;   writeln('частное: ',sp/abs(sn)) end. тестовое решение: элементы массива     2 -25    0    5  24    4    3    1  12  13  10    1    6  13 -17 частное: 2.23809523809524 вариант со вводом данных с клавиатуры: const   n = 15; var   a: array[1..n] of integer;   i,sp,sn: integer; begin   writeln('вводите через пробел элементы массива');   sp: =0; sn: =0;   for i : = 1 to n do   begin       read(a[i]);       if a[i]< 0 then sn: =sn+a[i]       else sp: =sp+a[i]   end;   writeln('частное: ',sp/abs(sn)) end.

Program djonik2; var a, b, c: real;   y,x: real;   begin x: =10;   readln(a,b ,c);   writeln('                     ');   writeln('       y     ');   writeln('                   '); repeat y: =a-b*c; writeln(y); until x> 20; end. vb: sub find() dim c, y  as integer,   c= inputbox("введите значение переменной c",  "ввод значеня переменной c")         y = 78-24*c         msgbox y,   "вывод значений" end subвроде бы