Program x1; var
a,b,c:integer;
begin
a:=−3;
b:=abs(a);
writeln('abs(−3)=',b);
c:=sqr(b);
writeln('sqr(b)=',c);
c:=sqr(b+b);
writeln('sqr(b+b)=',c);
end.

var n, i, x, min: integer;

begin

 n:=12; //задаем количество чисел.

 min:=16;//присваиваем минимум по правилу:"Минимуму присваиваем самое большое число".

 Randomize;

for i:=0 to n-1 do //цикл для рандома 12 чисел. Можно написать " for i:=1 to n do"

    begin

     x:=Random(31)-15;  //присваиваем перемененной "x" рандомное значение из диапазона [-15;15].

     Writeln(x); //выводим значение "x".

      if (min > x) and (x mod 2 <> 0) then  //если минимум больше полученного "x" и "x" - нечетный, то

        min:=x;  //минимуму присваиваем значение "x".

   end;

Writeln('Наименьшее нечетное число последовательности: ',min); //выводим ответ.

end.

//Dev-C++ 4.9.9.2

#include <iostream>
#include <ctime>
using namespace std;

int main(){
    srand(time(NULL));
    int ma[5][10];
    int maxn=0;
    double s=0;
    double max=-2147483647;
    for(int i=0;i<10;i++)
     for(int j=0;j<5;j++)
      ma[i][j]=rand()%2;
    for(int j=0;j<5;j++){
     for(int i=0;i<10;i++)
      s=s+ma[i][j];
     if(s>max){max=s; maxn=j;}
     s=0;}
    cout<<"Matrix"<<endl;
    for(int i=0;i<10;i++){
     for(int j=0;j<5;j++)
      cout<<ma[i][j]<<" ";
     cout<<endl;}
    cout<<maxn+1;
    cin.get();
    cin.get();
  return 0;
    }