Создать файл, содержащий сведения о пациентах клиники. Каждая запись содержит поля: фамилия пациента, пол возраст, место проживания (город), диагноз(задан кодом УУ). Количество записей произвольное. Количество диагнозов определяется по данным, содержащимся в файле. Написать программу, выдающую следующую информацию:
- количество иногородних, прибывших в клинику;
- список пациентов старше Х лет с диагнозом УУ(Х и УУ вводить с клавиатуры)
- списки пациентов по каждому из диагнозов

var a:array [1..5] of integer;      i:integer;begin  randomize;  for i:=1 to 5 do     begin      a[i]:=random(31)-15;      write (a[i]:4);     end;  writeln;  for i:=1 to 5 do    begin      a[i]:=a[i]*2;      write (a[i]:4);    end;  writeln;  readln;end.C++:#include <iostream>#include <ctime>#include <cstdlib>using namespace std;int main(){   int a[5];   srand (time(NULL));   for (int i = 0; i<5; i++)   {      a[i] = rand()%15-15;      cout <<a[i] <<" ";    }   cout <<endl;   for (int i = 0; i<5; i++)   {      a[i]*=2;      cout <<a[i] <<" ";    }   return 0;

Объяснение:

const

   handsfree = false;

   nmax = 10;

   random_min = -50;

   random_max = 50;

var

   a: array[0..nmax] of real;

   i, n: integer;

   sum, x: real;

begin

   {ввод массива}

   n := nmax;

   if handsfree then begin

       for i := 0 to n do

       begin

           a[i] := random(random_max - random_min) + random_min;

           write(a[i], ' ');

       end

   end

   else begin

       for i := 0 to n do

           readln(a[i]);

   end;

   writeln();

   {подсчет суммы}

   write('x = ');

   readln(x);

   sum := a[n];

   for i := n - 1 downto 0 do

       sum := sum * x + a[i];

   writeln('S = ', sqrt(sum));

end.