с информатикой надо записать с полным решением и ответом ​

Сделано для трёх книг, потом поменяешь в двух местах

PROGRAM prim2;
uses crt;
Type
book=record
avtor: string[20];
name:string[25];
year:integer;
end;

Var
f,i: integer;
b:array[1..3] of book;
BEGIN
clrscr;
f:=0;
{формирование записей}
for i:=1 to 3 do
Begin
write('Введите название книги: ');
readln(b[i].name);
write('Введите фамилию автора: ');
readln(b[i].avtor);
write('Введите год издания: ');
readln(b[i].year);
end;
writeln;
Writeln('Сведения о книгах (автор,название,год издания) год издания которых позже 1990');
for i:=1 to 3 do
Begin
if b[i].year>2003 then {проверка условия задачи}
Begin
f:=f+1;
Writeln(f:6,' ', b[i].avtor,' ', b[i].name,' ', b[i].year);
end;
end;
writeln('Итог: ',f);
readln;
END.

#include <iostream>
#include <stdio.h>
#include <conio.h>
#include <time.h>

using namespace std;

int main()
{
    srand(unsigned(time(NULL)));
    int n;
    cout << "n = ";
    cin >> n;
    int a[100];
    cout << "Source massive \n";
    for (int i = 0; i < n; i++)
    {
        a[i] = rand() % 21;
        cout << a[i] << " ";
    }

    for (int i = 0; i < n - 1; i++)
        for(int j = 0; j < n - i - 1; j++)
            if (a[j] > a[j + 1])
            {
                int temp = a[j];
                a[j] = a[j + 1];
                a[j + 1] = temp;
            }

    cout << "\nSorted massive \n";
    for (int i = 0; i < n; i++)
        cout << a[i] << " ";

    _getch();
    return 0;
}