Решить на языке программирования паскаль по теме "записи": 1) создать список песен (запись), содержащий название, стиль и длительность песен. типы данных должны быть следующие: 1. название - строка 2. стиль - строка 3. длительность песен - вещественное число при оператора присоединения внести данные в запись с клавиатуры.

Текст ниже программы организует ввод данных и запись их в типизированный файл. для завершения ввода в качестве названия надо ввести символ "звездочка" ( * ). type   song=record   name,style: string[20];   duration: real   end; var   f: file of song;   r: song; begin   assign(f,'mysongs.dat');   rewrite(f);   writeln('вводите данные в порядке "наименование, стиль, длительность');   writeln('для окончания ввода укажите символ * вместо наименования');   repeat       readln(r.name);       if r.name< > '*' then begin           readln(r.style);           readln(r.duration);           write(f,r)       end   until r.name='*';   close(f) end.

Type   mus = record     name: string;     style: string;     dur: real;   end; var   a: array[1..10000] of mus;   i,n: integer;   nam, st: string;   duration: real; begin   writeln('введите количество композиций:   ');   readln(n);   for i: =1 to n do   begin     write('название: ');     read(nam);     write(' стиль: ');     read(st);     write(' длительность:   ');     read(duration);     a[i].name: =nam;     a[i].style: =st;     a[i].dur: =duration;   end; end.

Сортировка по возрастанию: const n=20;   var   a: array[1..n] of integer;   i,j,t: integer; begin   randomize;   writeln('исходный массив: ');   for i: =1 to n do begin     a[i]: =random(51)-25;     write(a[i],' ')   end;   writeln;   for i: =1 to n-1 do     for j: =1 to n-i do       if a[j]> a[j+1] then       begin t: =a[j]; a[j]: =a[j+1]; a[j+1]: =t end;   writeln('отсортированный массив: ');   for i: =1 to n do write(a[i],' ');   writeln end. пример: исходный массив: 18 2 16 17 -14 -15 -18 -18 9 -5 -4 -9 -7 12 24 16 11 15 -24 22  отсортированный массив: -24 -18 -18 -15 -14 -9 -7 -5 -4 2 9 11 12 15 16 16 17 18 22 24 

Const n=20; var a: array[1..n] of integer;     i, max, imax, min, imin : integer; begin randomize;   writeln('исходный массив: '); for i: =1 to n do   begin   a[i]: =random(101)-50;     write(a[i],' ');   end;   writeln; max: =a[1]; imax: =1; min: =a[1]; imin: =1; for i: =2 to n do   begin   if a[i] > max then begin max: =a[i]; imax: =i; end;   if a[i] < min then begin min: =a[i]; imin: =i; end;   end; writeln('max=',max,'   min=',min); a[imax]: =min; a[imin]: =max; writeln('измененный массив: '); for i: =1 to n do write(a[i],' ');     writeln; end. пример: исходный массив: -20 6 40 -34 -31 48 1 -24 -35 24 23 8 -13 28 22 -38 26 35 -3 0  max=48   min=-38 измененный массив: -20 6 40 -34 -31 -38 1 -24 -35 24 23 8 -13 28 22 48 26 35 -3 0