Даны 2 одномерных числовых массива разностью n. создать третий массив , элемент которого равны сумме элементов двух других . найти наименьший элемент этого массива.

Смотри вложение

Var   s, w: string;   i, ls, lw, p, n: integer; begin   write('введите текст из трех слов: ');   readln(s);   write('введите искомое слово: ');   readln(w);   ls : = length(s);   lw : = length(w);   n : = 0;   i : = 1;   p : = pos(w, s);   while p > 0 do   begin       n : = n + 1;       i : = p + lw + 1;       s : = copy(s, i, ls - i + 1);       ls : = length(s);       p : = pos(w, s)   end;   if n = 0 then writeln('искомое слово не встречается в тексте')   else if n = 1 then writeln('искомое слово встречается 1 раз')   else writeln('искомое слово встречается ', n, ' раза') end. тестовое решение: введите текст из трех слов: мама мыла раму введите искомое слово: папа искомое слово не встречается в тексте введите текст из трех слов: мама мыла раму введите искомое слово: мыла искомое слово встречается 1 раз введите текст из трех слов: введите искомое слово: искомое слово встречается 2 раза