Написать программу для решения в стиле турбо паскаля 80-х годов. 1.в массиве храниться информация ло количестве людей, живущих на каждом из 15 этажей дома(на первом этаже - в первом элементе массива, на втором - во втором и т. д.) определить два этажа, на которых проживает меньше всего людей. примечание: решить, не используя два прохода по массиву. 2. в начале массива записаны несколько равных между собой элементов. определить количество таких элементов и вывести все элементы, следующие за последним из них. рассмотреть возможность того, что весь массив заполнен одинаковыми элементами

Uses crt; const   n=15;   var   i,m1,m2,t: integer;   k: array[1..n] of integer; begin   clrscr;   writeln('укажите количество людей на каждом этаже');   for i: =1 to n do read(k[i]);   writeln;   { массив получен, решаем }   m1: =1; m2: =2;   if k[m2]< k[m1] then begin t: =m1; m1: =m2; m2: =t end;   for i: =3 to n do       if k[i]< k[m2] then begin m2: =i; t: =m1; m1: =m2; m2: =t end;   writeln('меньше всего людей на этажах ',m1,' и ',m2);   readkey end. ************************************************************************************** uses crt; const   n=10;   a: array[1..n] of integer=(6,6,6,6,3,5,2,1,0,7);   var   i,j,t: integer; begin   clrscr;   t: =a[1];   i: =2;   while (i< =n) and (a[i]=t) do i: =i+1;   if i< =n then begin       writeln('одинаковых элементов: ', i-1);       write('за ними следуют элементы ');       for j: =i to n do write(a[j],' ');       writeln       end   else writeln('весь массив заполнен одинаковыми элементами');   readkey end.

сред. арифметическое = сумма всех чисел разделить на количество

 

(a1 + a2 + a3 + a4 + a5) / 5