Регистрация
полмвзсгдчэлжпчхмэвп
21.12.2022 21:48
Информатика
Есть ответ 👍

Нужно, чтобы программа заработала. program sp_pesen; const n=2; {количество песен} var m,naz,stil,time,name: array[1..n] of pesni; {массив песен} i: 1..n; begin end. type songs = record {описание записи} naz: string[10]; stil: string[10]; time: real; {вывод результата} 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; begin write('введите название песни ',i,' '); readln(naz); write('введите жанр песни '); readln(stil); write('введите длительность песни в минутах '); readln(time); writeln; end; {вывод результата} 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.

271
421
Посмотреть ответы 2

Ответы на вопрос:

ТанечкаКоновалова
ТанечкаКоновалова
4,8(51 оценок)
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.
AbrikosiK11
AbrikosiK11
4,4(95 оценок)
Pascalabc.net 3.4.2, сборка 1864 от 11.11.2018 внимание! если программа не работает, обновите версию!

begin

  var n : = readinteger('количество элементов массива: ');

  var x : = readarrinteger('введите массив х: ', n);

  var xmin : = x.min;

  var a : = x.select(t -> t - xmin).toarray;

  a.println

end.

пример количество элементов массива: 5 введите массив х: -18 42 0 -52 140 34 94 52 0 192

Популярно: Информатика