B C++: Если среднее арифметическое каждого столбца двумерного массива A меньше заданной величины T, заменить значение каждого элемента
массива A квадратом этого значения

#include <iostream>

#include <vector>

#include <fstream>

#include <algorithm>

using namespace std;

class pacient {

private:

 string lastName_m, mOrFM_m, adress_m, diagnosis_m;

public:

 pacient(string lastName = "", string mOrFM = "", string adress = " ", string diagnosis = " ") {

  lastName_m = lastName;

  mOrFM_m = mOrFM;

  adress_m = adress;

  diagnosis_m = diagnosis;

 }

 string getLastName() {

  return lastName_m;

 }

 string getAll() {

  return lastName_m + ", " + mOrFM_m + ", " + adress_m + ", " + diagnosis_m + ".";

 }

};  

int main() {

fstream out("output.txt");

setlocale(LC_ALL, "Russian");

vector<pacient> arr;

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

 string a[4];

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

  switch(j) {

   case 0: cout << "Last name: "; break;

   case 1: cout << "Male or FeMale: "; break;

   case 2: cout << "Adress: "; break;

   case 3: cout << "Diagnosis: "; break;

  }

  getline(cin, a[j]);

 }

 pacient temp(a[0], a[1], a[2], a[3]);

 cout << "Для окончания ввода введите 1: ";

 arr.push_back(temp);

 string temp1;

 getline(cin, temp1);

 if(temp1=="1") {

  break;

 }

}

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

for(int i = 0; i<arr.size()-1; ++i) {

 if(arr[i].getLastName()[0]>arr[i+1].getLastName()[0]) {

  swap(arr[i], arr[i+1]);

 }

} }

for(int i = 0; i<arr.size(); ++i) {

 cout << arr[i].getLastName() << endl;

 out << arr[i].getAll();

 out << "\n";

}

out.close();

}

1. "Современный вариант"

// PascalABC.NET 3.0, сборка 1076
begin
  var n:=ReadInteger('Введите количество элементов массива: ');
  var a:=ArrRandom(n,1000,10000);
  Write('Исходный массив: ',a,#13#10);
  Write('Множество цифр из разряда сотен: ');
  a.Select(x->(x mod 1000) div 100).Sorted.Distinct.Println(',')
end.

Тестовое решение:
Введите количество элементов массива: 8
Исходный массив: [9374,4420,8856,8274,7555,2461,8302,6325]
Множество цифр из разряда сотен: 2,3,4,5,8

2. "Школьный вариант"

// PascalABC.NET 3.0, сборка 1076
var
  i,n:integer;
  sd:set of 0..9;
  a:array[1..50] of integer;
begin
  Write('Введите количество элементов массива: '); Read(n);
  Randomize;
  Write('Исходный массив: ');
  sd:=[];
  for i:=1 to n do begin
    a[i]:=Random(9001)+1000;
    Write(a[i],' ');
    Include(sd,(a[i] mod 1000) div 100)
    end;
  Writeln;
  Write('Множество цифр из разряда сотен: ');
  for i:=0 to 9 do
    if i in sd then Write(i:2);
  Writeln
end.

Тестовое решение:
Введите количество элементов массива: 8
Исходный массив: 5332 4215 7231 3399 6989 8904 7804 3517
Множество цифр из разряда сотен:  2 3 5 8 9