Определите вид [1] Д. В. Бочков в своей монографии утверждает: «Исключительная важность экономической функции образования СОСТОИТ В воспроизводстве квалифицированной рабочей силы для всех отраслей народного хозяйства» Иной точки зрения придерживается Н.И. Никитин, изложивший свой видение проблемы в статье «К вопросу об экономической функции образования. Третий подход к проблеме представлен в монографии И.А. Иванова.

Бочков Д.В. Экономическое мышление педагога М.: Наука, 2015. С. 21 Никитин Н.И. К вопросу об экономической функции образовании // Вопросы педагогики 2016. № 8. С. 59-69. Иванов А.И. Образование в условиях современной экономики М-Наука, 2015. 215 с​

#include <iostream>

using namespace std;

int main() {

   const char* s = "one two three four five six seven";

   const char* w = 0;

   int max_size = 0;

   int word_size = 0;

   for (int i = 0; s[i]; i++) {

       if (s[i] != ' ') {

           word_size++;;

       } else if ((s[i] == ' ') || !s[i + 1]) {

           if (word_size > max_size) {

               max_size = word_size;

               w = s + i - word_size;

           }

           word_size = 0;

       }

   }

   for (int i = 0; i < max_size; i++) {

       std::cout << w[i];

   }

   std::cout << "\n";

   return 0;

}

просто перевод строк на паскаль. Логики тут искать не стоит. Первоначальное задание не полностью дано.

Объяснение:

const

 size = 6

var

 a : array [0..size, 0..size] of integer;

 d, v : array [0..size] of integer;

 i, temp, minindex, min, begin_index : integer;

begin

 begin_index := 0;

 for i:=0 to size-1 do begin

   temp := min + a[minindex][i]

   if temp < d[i] then

     d[i] := temp

 end;

 v[minindex] := 0;

 writeln('Кратчайшие расстояния до вершин')

 for i := 0 to size-1 do

   writeln(ver[i])  

end.