Створіть проект, під час виконання якого буде відкриватися вікно з такими значеннями властивостей: колір фону - червоний;

ширина - 500 пікселів;

висота - 350 пікселів;

відступ лівої межі - 300 пікселів;

відступ верхньої межі - 200 пікселів;

текст у рядку заголовка - Клас, Прізвище, Ім’я.

2. Збережіть проект з іменем Прізвище.

3. Додайте до проекту обробник події DblClick для вікна, виконання якого:

змінить колір фону вікна на зелений,

збільшить на 50 пікселів відступ верхньої межі вікна від верхньої межі екрана,

зменшить його ширину на 200 пікселів.

4. Додайте до проекту обробник події KeyPress для вікна, виконання якого:

встановить синій колір фону вікна,

встановить відступ верхньої межі вікна 400 пікселів від верхньої межі екрана,

збільшить його ширину на 50 пікселів,

зменшить на 50 пікселів відступ лівої межі вікна від лівої межі екрана,

відкриє вікно повідомлень з текстом у рядку заголовка «Прізвище» і текстом повідомлення «Я навчаюсь у 8 класі!».

{массив заполняется случайным образом положительными и отрицательными элементами. Находятся отрицательные элементы на главной диагонали и если они есть, то находится их сумма и количество. После этого проверяется, если есть отрицательные элементы на главной диагонали, то выдается среднее арифметическое, если нет, то на экране ответ "нет отриц"}
const
m=100;
var
a:array[1..m,1..m]of integer;
i,j,S,n,k: integer;
begin
Readln(n);
    for i:=1 to n do
        begin
             writeln;
                 for j:=1 to n do
                      begin
                            a[i,j]:=random(100)-50;
                             write(a[i,j]:4);
                                  
                      end;
         end;
for i:=1 to n do
  if a[i,i]>0 then
        begin
           s:=s+a[i,i];
           k:=k+1;
       end;
writeln;
 if   k<>0 then
      writeln('SR=', s/k)
 else
       writeln('Net <0');
end.

bool ok1(int a, int b, int c){

  return (a+b > c && a+c > b && b+c > a) && min(a,min(b,c)) > 0;

}

bool ok2(int a, int b, int c){

  return ok1(a,b,c) && (a == b || a == c || b == c);

}

signed main(){

  const int n = 3, m = 7;

  int arr[n][m];

  for(int i = 0; i < n; i++)

      for(int j = 0; j < m; j++)

          cin >> arr[i][j];

  vector<int> ans;

  for(int j = 0; j < m; j++)

      if(ok2(arr[0][j],arr[1][j],arr[2][j]))

          ans.push_back(j+1);

  cout << ans.size() << "\n";

  for(auto i: ans)

      cout << i << " ";

}

Подробнее - на -

Объяснение: