Запишите программу для вычисления суммы квадратов положительных элементов массива действительных чисел. количество элементов массива n (5

Var n: array[1..5] of integer;   i,s: integer; begin for i: =1 to 5 do read(n[i]); for i: =1 to 5 do if n[i]> 0 then s: =s+sqr(n[i]); writeln; write('s= ',s); end.

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var (a,b,c): =readreal3('введите стороны треугольника: ');   if (a+b> c) and (a+c> b) and (b+c> a) then begin       var alpha: =arccos((b*b+c*c-a*a)/(2*b*c));       var beta: =arccos((a*a+c*c-b*b)/(2*a*c));       var gamma: =pi-alpha-beta;       var max: =max(max(alpha,beta),gamma);       var d: =max-pi/2;       if abs(d)< =1e-12 then writeln('треугольник прямоугольный')       else if d< 0 then writeln('треугольник остроугольный')       else writeln('треугольник тупоугольный')       end   else writeln('треугольник не существует') end. примеры введите стороны треугольника: 3.54 5.18 8.32 треугольник тупоугольный введите стороны треугольника: 30 40 50 треугольник прямоугольный

#include < iostream> #include < ctime> #include < cmath> using namespace std; struct vert // структура для вершины многоугольника {   int x;   int y; }; // модуль числа int modul( int a ) {   return (a > 0 ? a : -a); } // длина отрезка через координаты float len( int x1, int y1, int x2, int y2 ) {   return sqrt((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2)); } int main () {   /// 1 ///   const int n = 3;   int arr[n];   float mid = 0;   // установка "зерна" для случайных чисел   srand(time(null));   // заполнение массива случайными числами и суммирование   for (int i = 0; i < n; i++)     arr[i] = rand() % 100, mid += modul(arr[i]);   // вычисление среднего арифм.   mid /= m;   /// 2 ///       const int v = 3; // количество вершин многоугольника   vert vert[v]; // массив вершин многоугольника   cout < < "введите координаты вершин (x y): " < < endl;   for (int i = 0; i < v; i++)   {     cout < < i + 1 < < ": ";     cin > > vert[i].x > > vert[i].y;   }   // вычисление периметра   float per = 0;   for (int i = 0; i < v - 1; i++)     per += len(vert[i].x, vert[i].y, vert[i + 1].x, vert[i + 1].y);   cout < < "периметр = " < < per < < endl;   return 0; }