Дан массив из 8 элементов целого типа равный : -8, 13, 4, -6, 7, 10, -5.напишите программу , которая заменит все положительные числа на 1 , а все отрицательные увеличит на 10.преобразованный массив вывести на экран в строчку через запятую

#include < iostream> int main()  {     int a[] = { -8, 13, 4, -6, 7, 10, -5 };     for (int i = 0; i < 7; ++i)         std: : cout < < ((a[i] < 0) ? a[i] += 10 : a[i] = 1) < < ",";     return 0; }

Program project1; var       x: integer; begin       read(x);       if (x < 1000) or (x > 9999) then       begin               writeln('need 4 digits');               exit;       end;             while (x > 0) do       begin               if (x mod 10 = 2) or (x mod 10 = 7) then begin                       writeln('yes');                       exit;               end;               x : = x div 10;       end;             writeln('no'); end.

Впаскале есть стандартная функция pos, которая возвращает начальную позицию вхождения подстроки в строку или 0, если такое вхождение не обнаружено. с её данная решается просто. var   s: string;   ip,iv: integer; begin   write('введите строку: '); readln(s);   ip: =pos('п',s); iv: =pos('в',s);   if ip*iv=0 then writeln('п или в или обе не найдены в тексте')   else       if ip< iv then writeln('п встретилось раньше в')       else writeln('в встретилось раньше п') end. тестовое решение: введите строку: на лугу пасется корова п встретилось раньше в