Дан одномерный массив из 10 элементов. элементы массива лежат в диапазоне от -20 до 20 и обозначают температуру первой декады (10 дней) марта. определите номера дней, когда температура опускалась ниже -10. напишите программу, которая позволяет найти и вывести номера дней, когда температура опускалась ниже -10.

Const n=10; var a: array[1..n] of integer; i: integer; begin  for i: =1 to n do begin read(a[i]); if a[i]< -10 then write(i); end; end.

//pascalabc.net версия 3.3.1590 от 03.12.2017 //если программа не запускается, то обновите версию begin       var a : = arrrandominteger(20, -2, 2);       writeln(a);       var n : = readinteger('n=');       var m : = readinteger('m=');       a : = a.skip(n - 1).take(m - n).toarray();       writeln(a);       if a.any(x -> x < 0) then               writeln(a.where(x -> x < 0).aggregate(1, (x, y)-> x * y)); end.

2)#include< iostream> #include < stdlib.h> #include< math.h> using namespace std; int main(){int c=0, b; do{     b = pow( c, 2);     c++;     cout < < b < < " "; }    while(c< 51);     system("pause"); } 1)#include< iostream> #include < stdlib.h> #include< math.h> using namespace std; int main(){int c=0, b;     while(c< 51){     b = pow( c, 2);     c++;     cout < < b < < " "; }    system("pause"); } 3)#include< iostream> #include < stdlib.h> #include< math.h> using namespace std; int main(){int c=0, b;     for(c; c< 51; c++){     b = pow( c, 2);     cout < < b < < " "; }    system("pause"); }