Ви плануєте класом піти в похід до лісу. Знайдіть відомості про орiєнтування в лісі без компаса та прийоми виживання У складних погодних умовах. Створіть у текстовому процесорі пам'ятку зі знайденими відомостями. У табличному процесорі виконайте розрахунки кількості питної води, потрібної для походу залежно від його тривалості та кількості учасників, і вартості покупки потрібної кількості води залежно від ємності упаковок.

Procedure GetWord(s:string; var from:integer; var w:string; var len:integer);
{
Ищет в строке s слово, начиная с позиции from.
Если слово w найдено, from будет указывать на его начало,
а в len будет находиться длина эого слова.
если слово не найдено, w='', len=0
Слова раздеяются минимум одним пробелом, за исключением
первого и последнего слова, у которых пробел может
находиться только с одной стороны.
}
var
  i,n:integer;
  stop:Boolean;
begin
  n:=Length(s); i:=from; stop:=false;
  while (i<=n) and (not stop) do
    if s[i]=' ' then Inc(i) else stop:=true;
  if i>n then begin len:=0; w:='' end
  else begin
    from:=i; stop:=false;
    while (i<=n) and (not stop) do
    if s[i]<>' ' then Inc(i) else stop:=true;
    if i>n then len:=n-from+1 else len:=i-from;
    w:=Copy(s,from,len)
  end
end;

var
  s1,wd,wdmax:string;
  ic,L,Lmax:integer;

begin
  Write('Введите строку: '); Readln(s1);
  ic:=1; Lmax:=0;
  repeat
    GetWord(s1,ic,wd,L);
    if (L>0) and (L>Lmax) then
      begin Lmax:=L; wdmax:=wd end;
    ic:=ic+L+1
  until L=0;
  Writeln('Самое длинное слово "',wdmax,'" длины ',Lmax)
end.
 
Тестовое решение:
Введите строку: Это пример    тестовой    строки  с произвольным числом   пробелов.
Самое длинное слово "произвольным" длины 12

PascalABC

Объяснение:

1)

begin

   WriteLn('Введите размер массива N: ');

   var n := ReadInteger;;

   var a := ArrRandomInteger(n, -20, 20);

   a.PrintLn;

   WriteLn('Сумма элементов, которые оканчиваются на число 2, равна ', a.Where(x -> (x mod 10 = 2) or (x mod 10 = -2)).Sum);

end.

2)

begin

   var a := ArrRandomInteger(10, -10, 10);

   a.PrintLn;

   WriteLn('Индексы отрицательных нечетных элементов:');

   foreach var i in a.Indices do

     if (a[i].IsOdd) and (a[i] < 0) then Write(i, ', ');

end.