Решить по инф-ке по теме массивы. возвести в квадрат все элементы целочисленного массива a[1..30]. вывести исходный и измененный массивы.

Код c++1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 #include < iostream> #include < conio.h>   int main() {     const int n = 5;     int m[n];     for(int i = 0; i < n; i++)     {     std: : cout < < "mass[" < < i < < "] = ";             std: : cin > > m[i];     }     std: : cout < < std: : endl;     for(int i = 0; i < n; i++)     std: : cout < < m[i] * m[i] < < " ";     getch();     return 0; }

Первый алгоритм: const   n=30; var   a: array[1..30] of integer;   s: longint;   i: integer; begin   { формируем массив }   randomize;   writeln('элементы массива: ');   for i: =1 to n do   begin a[i]: =random(51)-25; write(a[i]: 4) end;   writeln;   { собственно, алгоритм }   s: =a[1]*a[2]; i: =3;   while i< =n-1 do   begin s: =s+a[i]*a[i+1]; i: =i+2 end;   writeln('сумма пар произведений равна ',s) end. тестовое решение: элементы массива:     1  10  -9 -12  -2  20  21  14    5  19  21 -14 -10 -17    5  -9  -8  17  18  11 -21  -3 -15 -10 -15 -16 -15    2    3  21 сумма пар произведений равна 846 второй алгоритм const   n=30; var   a: array[1..30] of integer;   smax,imax: longint;   i: integer; begin   { формируем массив }   randomize;   writeln('элементы массива: ');   for i: =1 to n do   begin a[i]: =random(51)-25; write(a[i]: 4) end;   writeln;   { собственно, алгоритм }   smax: =a[1]+a[2]; imax: =1;   for i: =2 to n-1 do       if smax< a[i]+a[i+1] then       begin smax: =a[i]+a[i+1]; imax: =i end;   writeln('номер первого из пары элементов с максимальной суммой: ',imax) end. тестовое решение: элементы массива:   23  13 -11  -1 -18  20 -23    1 -21 -10    7  15  -2  24 -18 -22 -13  12 -16  22  19 -14 -14 -14  19  15    8 -15 -19 -22 номер первого из пары элементов с максимальной суммой: 20

На паскале. 1) var i, n, sum : integer; begin sum : = 0; for i : = 1 to 10 do begin readln(n); sum : = sum + n * n; end; writeln(sum); end. 2)  var i, sum : integer; n : real; begin sum : = 0; for i : = 1 to 15 do begin readln(n); if n = trunc(n) then sum : = sum + 1; end; writeln(sum); end. 3) var n, m, i : integer; begin readln(n,  m); for i : = n to m do if i mod 2 = 0 then writeln(i); end. 4) var n, i : integer; begin readln(n); for i : = 1 to n do if n mod i = 0 then writeln(i); end.