Type
Song = Record
Naz : String [ 40 ];
Stil : String [10];
Dl : Real;
End;
Var
Massiv : ARRAY [ 1 . .10 ] OF Song;
i, N : Short;
- Тогда -
FOR i := 1 TO N DO WITH Massiv [ i ] DO
Begin
Write ( ‘ Введите название песни - ‘ );
Readln ( Naz );
Write ( ‘ Введите стиль песни - ‘ );
Readln ( Stil );
Write ( ‘ Укажите длительность песни - ‘ );
Readln ( Dl );
End;