Решите все подробно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];  for k: = 4 to 10 do begin  if dat[k] > = dat[1] then  begin   m: = m + dat[k]  end end;  write(m); end.​

Объяснение:

m = 45, дальше идёт обработка массива Dat от 4 до 10

Если Dat[k] > Dat[1] тогда m будет прибавлять в себя этот элемент массива

Dat[4] = 15, условие ложно цикл идет дальше

Dat[5] = 20, условие ложно, цикл идет дальше

Dat[6] = 80, условие истинно, m= 45+45=90, цикл идет дальше

Dat[7] = 35, условие ложно, цикл идет дальше

Dat[8] = 70, условие истинно, m = 90+45=135, цикл идет дальше

Dat[9] = 10, условие ложно, цикл идет дальше

Dat[10] = 45 условие истинно, m = 135 + 45 = 180, цикл завершен

Вывод m (180)

ответ: 180