Вариант 13. создать файл, данными которого являются: ншмер зачетной книжки, ФИО студента, список из 5 предметов с оценками в сессии. Сохранить список отличников и хорошистов в отдельном файле и ввести их список с результатами сессии, отсортированный по фамилиям студентов.

напишите на с++.

//прога на Pascal
type
film = record
name : string[20];
age : byte;
end;
var
a: array of film;
n, i: byte;
begin
write ('Введите кол-во фильмов: ');
readln (n);
setLength (a, n);
for i:=0 to n-1 do
begin
write ('Введите название фильма ', i+1, ': ');
readln (a[i].name);
write ('Введите возрастное ограничение фильма ', i+1, ': ');
readln (a[i].age);
end;
writeln ('Введите возраст зрителя: ');
readln (n);
writeln ('');
for i:=0 to length (a)-1 do
begin
if n>a[i].age then write ('Этот зритель может ') else write ('Этот зритель не может ');
writeln ('пойти на фильм "', a[i].name, '"');
end;
end.

1.

var
i: integer;
A: array [1..20] of integer;

begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(21)-10;
 for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Каждый пятый эелемент массива: ');
 for i:=1 to 20 do if i mod 5 = 0 then write(A[i]:5);
end.

2.
var
x,i: integer;
A: array [1..20] of integer;

begin
randomize;
writeln('Массив: ');
 for i:=1 to 20 do A[i]:=random(11);for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Натуральные числа в диапазоне [5..10]: ');
 for i:=5 to 10 do write(A[i]:5);
writeln;
x:=1;
writeln('Их произведение: ');
 for i:=5 to 10 do x:=A[i]*x;
write(x:5); 
end.