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

Program zadbl; uses crt; var  a,b,c,i,s: integer; m: array[1..30] of integer; begin  s: =-1;   for i: =1 to 30 do   begin  m[i]: =random(100);   write(m[i]: 3);   end;   for i: =1 to 28 do   begin    if m[i]+m[i+1]+m[i+2]> s then   begin    a: =m[i];     b: =m[i+1];     c: =m[i+2];     s: =a+b+c;     end;     end;     writeln('   a   b   c');     write(a: 3);     write(b: 3);     write(c: 3);     readln; end.

Когда мы включаем компьютер, то видим картинку и всякие значки, кнопки, окошки и прочее. вся эта красота, которую вы видите и используете, возможна только операционной системе. при нее мы компьютером, то есть делаем за ним все то, что делаем – работаем, отдыхаем, пользуемся интернетом. операционная система  — это самая важная программа. без нее мы не смогли бы даже включить компьютер. то есть если бы ее не было, то при включении компьютера был бы только черный экран с разными непонятными буквами и цифрами. windows (виндоуз)  - это название операционной системы. так сказать, ее марка. как, например, марки автомобилей – ауди, фольксваген, бмв и другие. вот windows – это одна из «марок» операционных систем компьютера.

// использование указателей для создания односвязного списка // сделано на базе демонстрационного примера pascalabc.net // // pascalabc.net 3.2, сборка 1325 от 19.10.2016 type   pnode=^tnode;   tnode=record       data: integer;       next: pnode;   end; function newnode(d: integer; n: pnode): pnode; begin   new(result);   result^.data: =d;   result^.next: =n; end; procedure writenode(a: pnode); // вывод односвязного списка begin   writeln('содержимое односвязного списка: ');   var p: =a;   while p< > nil do begin       write(p^.data,' ');       p: =p^.next;       end;   writeln end; function seeknode(k: integer; a: pnode): pnode; // поиск элемента со значением k в списке begin   var p: =a;   result: =nil;   while p< > nil do begin       if p^.data=k then begin result: =p; break end;       p: =p^.next       end end; function prednode(a,f: pnode): pnode; // поиск предшественника f среди a begin   var p: =a;   while p^.next< > f do p: =p^.next;   result: =p end; procedure clear(a: pnode); // разрушение односвязного списка begin   var p: =a;   while p< > nil do begin       var p1: =p;       p: =p^.next;       dispose(p1); // память обязательно возвращать       end end; var   first,found,father,grandfather,greatgrandfather: pnode;   begin   randomize;   first: =nil;   for var i: =1 to 10 do       first: =newnode(random(100),first);   writenode(first); // первоначальное состояние списка   var k: =readinteger('введите число для поиска в списке');   found: =seeknode(k,first);   if found< > nil then begin       father: =prednode(first,found); // отец       grandfather: =prednode(first,father); // дед       greatgrandfather: =prednode(first,grandfather); // прадед       greatgrandfather^.next: =father;       writeln('элемент ',grandfather^.data, ' удален');       dispose(grandfather);       writenode(first);       k: =readinteger('введите число для вставки');       father^.next: =newnode(k,found);       writenode(first);       end   else writeln('такого числа в списке нет');   clear(first) end.   пример содержимое односвязного списка: 11 75 44 86 88 83 92 18 4 23 введите число для поиска в списке 88 элемент 44 удален содержимое односвязного списка: 11 75 86 88 83 92 18 4 23 введите число для вставки 40 содержимое односвязного списка: 11 75 86 40 88 83 92 18 4 23