begin
var (n, m) := ReadlnInteger2;
var (sm, tm):= ('', integer.MaxValue);
for var i := 1 to n do
begin
var s := ReadlnString;
var t := ReadSeqInteger(m).Sum;
ReadlnString;
if t < tm then
(sm, tm) := (s, t)
end;
Write(sm)
end.
<u>Замечание.</u> Строки могут содержать любые символы., а не только латинские буквы.
Поля в БД могут быть такими:
Таблица 1 Известные исполнители
1) Исполнитель
2) Страна проживания
3) Дата рождения
4) Музыкальный жанр
5) Ссылка сайт
Если БД должна иметь связанные таблицы, то можно добавить Таблицу 2 Альбомы:
1) Исполнитель
2) Название альбома
3) Дата выпуска
4) Треки
Var
a: array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
a[i] := i-4;
a[2] := a[9] + a[2];
a[9] := a[2] - a[9];
a[2] := a[2] - a[9];
for i:=1 to 10 do
write(a[i], ' ');
end.
Загадки:в этом заведении
все перебывали
двоечники,гении
отметки получали
учились здесь артисты
певцы,артиллеристы
сюда хожу и я,
и вы,мои друзья(школа)
что же за предмет такой,
девчонки и мальчишки?
для каждого он-дорогой
что это (записная книжка)
через поле и лесок подается голосок
он бежит по проводам-
скажешь здесь а слышно там (телефон)