Написать программу на c++. Указать количество учеников, после чего вывести случайное число из этого количества. После чего ученику можно поставить оценку (2,3,4,5) либо же отсутствие (Н). Дополнительные условия.
Сделать ошибку ввода оценки (если вводим число 1 или больше 5). Так же один и тот же номер ученика не может выпадать дважды.
В конечном итоге вывести номер ученика и его оценку (либо отсутствие).​

Var   a: array [1..7] of real;   
i: integer;    
m,s:real;
Begin    
For i:=1 to 7 do            
     Read (a[i]);     
For i:=1 to 7 do            
     if a[i]<0 then          
          a[i]:=a[7];   
For i:=1 to 7 do       
     write (a[i],' ');
end.


Var   a: array [1..100] of integer;   
k,x1,x2,i: integer;    
s:real;
Begin    
s:=0;
read(k);   
read(x1);
read(x2);
For i:=1 to k do            
     Read (a[i]);
For i:=1 to k do 
begin
     If a[i] in [x1..x2] then     
          s:=s+a[i];
end;
write (s,' '); 
end.

Program sp_pesen;
const n=2; {количество песен}
type songs = record {описание записи}
naz:string[10];
stil:string[10];
time:real;
name:string[20];
end;
var m:array[1..n] of songs; {массив песен}
i:1..n;
begin
{ввод}
for i:=1 to n do
with m[i] do
 begin
 write('Введите название песни ',i,' ');readln(naz);
 write('Введите жанр песни ');readln(stil);
 write('Введите длительность песни в минутах ');readln(time);
 write('Введите исполнителя ',i,' ');readln(name);
 writeln;
 end;
{вывод результата}
writeln('названия песен в стиле Rap');
for i:=1 to n do
with m[i] do
 if stil = 'Rap' then
  writeln(naz:6,stil:8,time:9:1,name:5);
writeln;
writeln('название стиль длительность');
for i:=1 to n do
 with m[i] do
 if (time >=2)and(time<=3)and(name='string')then
  writeln(naz:6,stil:8,time:9:1,name:5);
writeln;
end.