18. Создать структуру с данными по таблице 8.10: Таблица 8.10. Сведения о научных сотрудниках
Фамилия Инициалы Ученая степень Год рождения Количество статей
Сергеев С. А.
Доцент
1971
25
Добавить и вычислить в структуре поле «Активность» по следую-
щему принципу: если количество статей более 10, то в поле записать
пробел, в противном случае — фразу «Работать лучше». Упорядочить
записи по фамилии.
19. Создать структуру с данными по таблице 8.10. Удалить со-
трудника с фамилией, которая вводится с формы. Определить количе-
ство доцентов. Упорядочить записи по должности.​

#include <iostream>
#include <vector>
#include<windows.h>
using namespace std;
char bufRus[256];

char* Rus(const char* text) {

CharToOem(text, bufRus);
return bufRus;
}

int main()
{
vector<int> m;//объявили динамический массив
int n,count,sum;
count=sum=0;
cout<<Rus("Введите количество элементов массива:");

cin>>n;
for(int i=0;i<n;i++)
{ cout<<"m["<<i+1<<"]";
int temp;
cin>>temp;
if (temp>7){count++;sum+=temp;}
m.push_back(temp);
}
cout<<Rus("Количество элементов: ")<<count<<endl;
cout<<Rus("Сумма элементов: ")<<sum;
cin>>n;
return 0;
}

 

Как видите, всё просто)

1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.