Надо Скласти програму обчислення функції

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:array[1..3] of string;
  var l:array[1..3] of integer;
  for var i:=1 to 3 do begin
    Write('Город ',i,': '); Readln(a[i]);
    l[i]:=Length(a[i])
    end;
  var imin:=1; var imax:=1;
  for var i:=2 to 3 do begin
    if l[i]<l[imin] then imin:=i;
    if l[i]>l[imax] then imax:=i
    end;
  Writeln('Самое длинное название- ',a[imax]);
  Writeln('Самое короткое название- ',a[imin])
end.

Тестовое решение
Город 1: Москва
Город 2: Минск
Город 3: Киев
Самое длинное название- Москва
Самое короткое название- Киев

#include <iostream>
#include <cstdlib>
#include <iomanip>
using namespace std;

int const n=6;
int const m=6;

int main() {
  int a[n][m];
  int sm;  
// установка генератора случайных чисел
  srand(time(NULL));
// генерация массива и вывод на экран
  for (int i=0; i<n; i++) {
   for (int j=0; j<m; j++) {
     a[i][j]=rand()%50-20;
        cout<<setw(7)<<a[i][j];
    }
    cout<<endl;
  }
//  обработка массива
  for (int i=0; i<m; i++) {
     sm=0;
     for (int j=0; j<n; j++) sm+=a[j][i]; 
     for (int j=0; j<n; j++) 
        if (2*a[j][i]>sm) cout<<j+1<<" "<<i+1<<endl;
  }    
  system("pause");
  return 0;
}

    -16     -2     15      4      7      3
    -13     16      3     16    -13      3
      0     19     20      6     20    -18
    -19      7      1     10    -11     25
      5      4      3     21     28    -13
     26    -19     -7     12    -20     11
1 1
2 1
3 1
5 1
6 1
3 5
5 5
4 6