ПОМОГИТЕ! Даю 90 баллов! Пожалуйста!

Question

ПОМОГИТЕ! Даю 90 баллов! Пожалуйста!

---

Comments

Если дадите текст программы, а не картинку, то может быть и срочно.

---

Изображение не открывается что ли?

---

И правда, с картинки сложно перепечатать программу. Скинул бы её код тоже, а не картинку

---

program sp_pesen;const n=2; {количество песен}type pesni=record {описание записи}naz:string[10];stil:string[10];time:real;name:real;end;var m:array[1..n] of pesni; {массив песен}i:1..n;begin{формирование записей}for i:=1 to n dowith m[i] dobegin

---

write('Введите название песни ',i,' ');readln(naz);write('Введите жанр песни ');readln(stil);write('Введите длительность песни в минутах ');readln(time);write('Введите имя исполнителя');readln(name);writeln;end;writeln('название стиль длительность');{вывод результата}for i:=1 to n dowith m[i] doif time >3.5 thenwriteln(naz:6,stil:8,time:9:1,name:5);writeln;end.

---

пришлось на сообщения разделить

---

кто-нибудь помогите!

Answer 1

А) на экран будут выведены песни длительностью > 3.5 (мин)

б)
1.
{вывод результата}
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;

2.
type pesni=record {описание записи}
naz:string[10];
stil:string[10];
time:real;
name:string[20];
end;

3.
type pesni=record {описание записи}
naz:string[10];
time:real;
name:string[20];
end;

4.
{вывод результата}
for i:=1 to n do
with m[i] do
if (time >=2)and(time<=3)and(name='Sting') then<br>writeln(naz:6,stil:8,time:9:1,name:5);
writeln;