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> Строки могут содержать любые символы., а не только латинские буквы.
Слово<span> ‘компьютер’ ...является транскрипцией </span>английского слова<span> computer, что означает </span>вычислитель<span>. </span>Английское<span> понятие ‘computer’ </span><span>гораздо шире, чем понятие ‘компьютер’ в русском языке.</span>
Можно найти в ноутбуке папку такую "Удаленные файлы", удаляешь, стираешь эти файлы, и удаляешь их из корзины. Или скачать программу, которая удаляю файлы, которые ты выбрал, а потом удаляй саму программу
Program summa;
var i,n:integer;
begin
for i:=10 to 15 do
n:=n+i;
writeln('Summa 4isel ot 10 do 15= ',n);
end.<span>
</span>
<span>не (не (не А)) = не А</span>
<span>-----------------------------------------------</span>