Составить программу на Паскале: Создать одномерный массив из 12 целочисленных элементов с именем f.
Массив заполнить случайными числами от -10 до 10.
Найти сумму положительных элементов массива. (положительные значения >0).
Вывести на экран значение элементов массива в строчку и на новой строке вывести сумму элементов массива.

Модификация(көне латынша modіfіcatіo, латынша modus – өлшем, түр және fаcіo – жасаймын) – организмнің белгілері мен қасиеттерінің (фенотипінің) сыртқы орта факторларының әсерінен генотипке байланыссыз (тұқым қуаламай) өзгеруі. Модификациялық өзгергіштікті тудырушы факторларға сыртқы ортаның температурасы, жарық, қоректену жағдайы, т.б. жатады. Модификацияға ұшырамайтын белгі не қасиет болмайды, бірақ организмнің әрбір белгісінің өзгеруінің белгілі бір шегі болады, оны өзгергіштіктің реакция нормасы деп атайды. Организмдегі әр түрлі белгілердің реакция нормасы түрліше болады. Мысалы, сиырдың сүттілігінің реакция нормасы жоғары болады, ал сүтінің майлылығы мал тұқымына тән тұрақты қасиет. Бірақ сиырды дұрыс бағып-күтсе, оның сүттілігін арттырып, сүтінің майлылығын жоғарылатуға, яғни өзгертуге болады. Ал сиырдың түсін (реңін) алатын болсақ, ол өте аз өзгереді, яғни реакция нормасы өте төмен. Модификация мутациялық өзгергіштік сияқты тұқым қуаламайды, бірақ ұзақ уақыт сақталуы мүмкін. Модификация организмнің онтогенез барысындағы өзгеруінің сыртқы орта факторына бейімделуін қамтамасыз етеді.

#include <iostream>

#include <cmath>

#include <Windows.h>

using namespace std;

int main()

{

   SetConsoleCP(65001);

   SetConsoleOutputCP(65001);

   float x, y;

   cout << "Input X: ";

   cin >> x;

   cout << "Input Y: ";

   cin >> y;

   if(sqrt(x * x + y * y) < 1 || abs(x) > 1 || abs(y) > 1){

       cout << "Точка вне области";

       }

   else if( (x > 0 && y > 0) || (x < 0 && y < 0))

       cout << "Точка внутри заштрихованной области";

   else

       cout << "Точка вне области";

   return 0;

}