сделать задание 4. 18 на странице 195. Из учебника по информатике за 7 класс. Авторы Л Л Босова и А Ю Босова

#include <iostream>
using namespace std;

int main() {
    int n=12, imax=0, imin=0;
    int a[n];
    srand(time(NULL));
    cout<<"array:"<<endl;
    for (int i=0; i<n; i++)
    {
      a[i]=rand() % 50;
      cout<<a[i]<<" ";
    }
    cout<<endl;
    for (int i=1; i<n; i++) {
     if (a[i] > a[imax]) imax = i;
     if (a[i] < a[imin]) imin = i;
    }
    for (int i=0; i<n; i++) {
     if (i == imax || i == imin) cout << " ! " << a[i] << " ! ";
     else  cout << a[i] << " ";
    }
    cout<<endl;
    return 0;
}

Пример:
array:
31 0 13 29 13 34 33 42 40 26 48 24
31 ! 0 ! 13 29 13 34 33 42 40 26 ! 48 ! 24

Допустим, массив уже задан, поэтому его ввод писать не буду. Kol - количество элементов массива

var

 mas, mas_ob: array[0..999] of integer;

 i, kol_null, sum, sum_nech, sum_ch, pp, i1, kol, max: integer;

 

begin

 kol_null := 0;

 sum := 0;

 sum_nech := 0;

 sum_ch := 0;

 i1 := 0;

 max := -10000;

 for i := 0 to kol do  

 begin  

   if mas[i] <> 0 then kol_null += 1; //2

   sum += mas[i]; //3

   if mas[i] mod 2 <> 0 then sum_nech += mas[i];//4

   if mas[i] mod 2 = 0 then sum_ch += mas[i];  //5

   if mas[i] < 0 then mas[i] := abs(mas[i]);  //6

   if mas[i] mod 21 = 0 then mas[i] := 1; //7

   if mas[i] > max then max := mas[i]; //11

 end;  

 

 pp := mas[0];//8

 mas[0] := mas[kol]; //8

 mas[kol] := pp;//8

 

 for i := kol downto 0 do //10

 begin

   mas_ob[i] := mas[i];

   i1 += 1;

 end;

 

 writeln('Количество ненулевых элементов: ', kol_null);

 writeln('Сумма всех элеметов: ', sum);

 writeln('Сумма нечетных элеметов: ', sum_nech);

 writeln('Сумма четных элеметов: ', sum_ch);

 writeln('Максимальный элемент: ', max);

end.