1. сформировать призвольный массив. 2. дано n целых чисел. вывести все числа, меньше последнего числа в ряду. 3. определите среднее арифметическое элементов массива. 4. опрелелите есть ли в массиве чисоа от 3 до 7. укажите их номер.

Program asd; var a,c: array[1..2500] of integer; i,n,s,ii: integer;   sr: real; begin write('введите n: ');   readln(n); writeln('массив: ');   for i: =1 to n do     begin   a[i]: =1+random(9);     write(a[i]: 2);     end;       writeln;     writeln('все элементы, которые меньше последнего числа в ряду: '); for i: =1 to n do    begin   if a[i]< a[n] then write(a[i]: 2);   end;   writeln;   writeln('среднее арифметическое элементов массива: ');     for i: =1 to n do    begin    s: =s+a[i];     sr: =s/i;   end;   writeln(sr: 2: 2);         writeln('номер элементов, которые от 3 до 7.: ');       for i: =1 to n do    begin    if   (a[i]> =3) and (a[i]< =7)      then   begin    c[i]: =i;     write(c[i],' ');     end;       end;     end.

Program textfind; uses strutils; var text,buffer : string; var tpos,lastpos,counter,biggest : integer; begin   tpos : = 0;   text : = '';   while(tpos = 0) do begin     readln(buffer);     text += buffer;     tpos : = pos('.',buffer)   end;   lastpos : = 1;   tpos : = posex(' ',text,lastpos);   if tpos = 0 then      tpos : = posex('.',text,lastpos);   biggest : = tpos-1;   lastpos : = tpos+1;   while(not (tpos = 0)) do begin     tpos : = posex(' ',text,lastpos);     if tpos = 0 then         tpos : = posex('.',text,lastpos);     if (tpos-lastpos) > biggest then         biggest : = tpos-lastpos;       lastpos : = tpos+1;   end;   lastpos : = 1;   counter : = 0;   tpos : = posex(' ',text,lastpos);   if tpos = 0 then     tpos : = posex('.',text,lastpos);   while(not (tpos = 0)) do begin     if (tpos-lastpos) = biggest then         counter += 1;     lastpos : = tpos + 1;     tpos : = posex(' ',text,lastpos);     if tpos = 0 then         tpos : = posex('.',text,lastpos);   end; writeln(counter); end.

#include < iostream> using namespace std; int main() {     cout < < "enter month num: " < < endl;     unsigned month = 0;     cin > > month;     if (month < = 12 & & month > = 1) {     switch (month / 3)  {     case 1:         cout < < "spring" < < endl;         break;     case 2:         cout < < "summer" < < endl;         break;     case 3:         cout < < "autumn" < < endl;         break;     default:         cout < < "winter" < < endl;         break;     }     } else {       cout < < "no" < < endl;         } return 0; }