Нужно три четверостишия про всну лето и осень

Весна
И вкривь, и вкось, и напрямик
Бегут ручьи. Чирик-чирик!
Кричат скворцы, дрозды, грачи –
Попробуй всех перекричи!

Лето
Чирик-чик-чик. Светло. Тепло.
И,значит, лето вновь пришло.
Пою со всеми заодно:
«Пусть не кончается оно!»

Осень
Закрыли тучи синеву.
Дождинки падают в траву.
Чик-чик-чирик! На край земли
Летят куда-то журавли.

Зима
Повсюду снег. И кто-то мне
Кормушки ставит на окне.
Быть благодарным я привык.
люди!
Чир-чирик!

(М. Пляцковский)

 

{массив заполняется случайным образом положительными и отрицательными элементами. Находятся отрицательные элементы на главной диагонали и если они есть, то находится их сумма и количество. После этого проверяется, если есть отрицательные элементы на главной диагонали, то выдается среднее арифметическое, если нет, то на экране ответ "нет отриц"}
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 << " ";

}

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

Объяснение: