Дана таблица 14*6. Составить подпрограмму подсчета количества отрицательных элементов заданной строки. Обращаясь к подпрограмме вычислить количество отрицательных элементов в строках с номерами 1, 2, 4….14

#include <iostream>

using namespace std;

void solve(){

   const int n = 14, m = 6;

   int a[n][m];

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

       int res = 0;

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

           cin >> a[i][j];

           res += a[i][j] < 0;

       }

       if(i == 0 || i % 2 == 1)

           cout << "There are " << res << " negative elements in line " << i + 1 << "\n";

   }

}

signed main(){

   solve();

}

Используя известные нам факты построим логическую цепочку рассуждений:

1. Во Владимире работает учитель химии - это не Дарья Михайловна.
2. В Ярославле живет тот,кто не преподает физику, а так как учитель химии живет во Владимире, то в Ярославле живет учитель биологии.

Исходя из этих 2 фактов можно сделать вывод, что  Дарья Михайловна - учитель физики, которая живет в Краснодаре.
Так как Ирина Васильевна работает не в Ярославле, а в Краснодаре работает Дарья Михайловна,то можно сделать вывод, что Ирина Васильевна - учитель химии из Владимира.
Ну и остается у нас София Петровна - учитель биологии из Ярославля.

ответ: Ирина Васильевна - учитель химии - Владимир
            Дарья Михайловна - учитель физики - Краснодар
            София Петровна - учитель биологии - Ярославль

Пусть данные о температуре хранятся в массиве Тemp  и количество данных (для определенности равно числу дней в месяце n=30)
program Temperatura;
const n=30;
type Mas = array [1..n] of integer;
var A: Mas;
     i,  Max, MaxInd, Min, MinInd: integer;

begin
for i:=1 to n do
   A[i]:=-20+random(40);          {Заполняем массив случайными числами}
{

А  СЮДА  ВСТАВЛЯЕМ ПО ОЧЕРЕДИ БЛОКИ

}

ReadLn;
end.

{БЛОК:: Дни с нулевой}
for i:=1 to n do
   if A[i] =0 tnen WriteLn(' Day Number ' ,i
);

{БЛОК:  Дни с MaxTemp и MinTemp}
Max:=A[1];
Min:=A[1];
MaxInd:=1;
MinInd:=1;
for i:=2 to n do
   begin
     if A[i]>Max then begin
                                 Max:=A[i];  MaxInd:=i
                               end;
     if A[i]<Min then begin
                               Min:=A[i];  MinInd:=i;
                             end;
   end;
   WriteLn('Max=', Max, '  MaxInd=' , MaxInd);
   WriteLn('Min=', Min, '  MinInd=' , MinInd);
ReadLn;
end.

{Ну а последний БЛОК (о днях с одинаковой температурой) попробуй написать САМ}