Написать программу на с++ создайте класс квадратов и на его основе класс прямоугольников. продемонстрируйте работу классов. для этого в окне формы на этапе выполнения вводятся характеристики фигуры и вычисляется ее площадь. класс квадратов должен содержать координаты верхнего левого угла и длину стороны. у класса прямоугольников добавляется значение еще одной стороны. 2 объявите иерархию классов графических примитивов: окружностей и цилиндров. продемонстрируйте работу классов. для этого в окне формы на этапе выполнения вводятся характеристики фигуры и вычисляется ее площадь. класс окружностей имеет радиус. класс цилиндров имеет еще и высоту.

Вот наполнение массива рандомом. если нужно наполнение с клавиатуры, то вместо  a[i,j]: =random(100)-50;   необходимо поставить read(a[i,j]); const n=3; m=4; var a: array[1..n,1..m] of integer; var i, j, count: integer; begin  count: =0;   for i: =1 to n do begin  for j: =1 to m do begin  a[i,j]: =random(100)-50;   write(a[i,j]: 3, ' ');   end;   writeln;   end;   for i: =1 to n do    for j: =1 to m do begin  if (a[i,j]< 0) and (a[i,j] mod 2 < > 0) then count: =count+1;   end;   writeln('количество отрицательных нечетных элементов: ', count); end.

Ввод с клавиатуры одномерного массива целых чисел и вывод его элементов на экран с противоположным знаком program massiv2;       const n=10;     type {  раздел описания типов переменных. эти типы определяет сам пользователь, то есть мы определяем тип одномерного массива из n целых чисел  }        mas=array [1..n] of integer; {  1..n - тип индекса; для индекса выбран интервальный тип. то есть интервал целых чисел от 1 до n. где n определено в разделе const  }    var            line: mas; {  line - одномерный массив, его тип определен нами как mas  }            i: integer; {переменная, хранящая индекс элемента массива, к которому идет обращение  }begin{  ввод массива с клавиатуры  }    for i: =l to n do {  обращение к элементам массива происходит в цикле, по очереди  }        begin {  начало цикла ввода элементов массива  }            write('введите элемент с индексом ' ,i,' : ');             readln(line[i]) {  обращаемся к i-му элементу массива (line[l],line[2] и т. д.)}        end; {  конец цикла ввода элементов массива  }{  вывод элементов происходит также в цикле: }    for i: =l to n do {  перебираем все n элементов массива  }        write(-line[i]: 5); {  10 элементов выводятся в строку. выводим все элементы массива с противоположным знаком  }    writeln; {  после вывода массива элементов - переход на новую строку  }      readln  end.