Как папку вставить данные или фото?

Var k,m: integer;
Dat: array[1..10]of integer; // объявление массива
begin
Dat[1]:=45;      //заполнение массива
Dat[2]:=55;      //заполнение массива
Dat[3]:=40;     //заполнение массива
Dat[4]:=15;     //заполнение массива
Dat[5]:=20;     //заполнение массива
Dat[6]:=80;     //заполнение массива
Dat[7]:=35;     //заполнение массива
Dat[8]:=70;     //заполнение массива
Dat[9]:=10;     //заполнение массива
Dat[10]:=45;   //заполнение массива
m:= Dat[1];    //m присваивается значение первого элемента массива
for k:=2 to 10 do begin   //цикл выполняющийся 8 раз (с2 до 10) 
if Dat[k] < Dat[1] then    //сравниваются значения первого и k-ого элемента массива
begin //если условие выполняется, то складывается значение первого элемента и k-ого
m:= m+ Dat[k]
end
end;
write(m);
end.

эта программа складывает значения тех элементов массива, которые меньше первого элемента данного массива и сам этот первый элемент.

ответ:Археологические находки свидетельствуют о том, что сумо было распространено в Японии уже в III-VI веках (глиняные фигурки ханива в виде борцов сумо), а первые письменные упоминания о сумо датируются VII-VIII веком (книга «Кодзики»). В книге говорится о том, что 2500 лет назад боги Такэмикадзути и Такэминаката схватились в поединке сумо за право владеть Японскими островами. Победу в поединке одержал Такэмикадзути. Другое упоминание о борьбе сумо можно найти в книге «Нихон сёки», которая датируется 720 годом. В ней также идет речь о поединке, который состоялся между двумя силачами. Слово “сумо” образовалось от японского глагола “Сумафу” (меряться силами). От данного глагола было образовано существительное “сумахи”, спустя сотни лет оно трансформировалось в слово “сумаи”, а затем и в “сумо”. Источник: http://ru.sport-wiki.org/vidy-sporta/sumo/

Объяснение: