"расскажите , что вы знаете об информатике"я просто урок пропустила

Информа́тика (от информация и автоматика) — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации, обеспечивающих возможность её использования для принятия решений[1]. она включает дисциплины, относящиеся к обработке информации в вычислительных машинах и вычислительных сетях: как абстрактные, вроде анализа алгоритмов, так и конкретные, например разработка языков программирования и протоколов передачи данных. темами исследований в информатике являются вопросы: что можно, а что нельзя реализовать в программах и базах данных (теория вычислимости и искусственный интеллект), каким образом можно решать специфические вычислительные и информационные с максимальной эффективностью (теория сложности вычислений), в каком виде следует хранить и восстанавливать информацию специфического вида (структуры и базы данных), как программы и люди должны взаимодействовать друг с другом (пользовательский интерфейс и языки программирования и представление знаний) и т. п.

Поскольку алгоритма нет, имею право ввести свой: ) procedure swap(var a, b: real); var t: real; begin       t : = a;       a : = b;       b : = t; end; var a, b, c: real; begin       readln(a, b, c);       if (a > b) then swap(a, b);       if (b > c) then swap(b, c);       if (a > b) then swap(a, b);       writeln(a, ' ', b, ' ', c); end.в ответе будета = 10b = 18с = 26 =)

Uses crt; const n=5; var a: array[1..n,1..n] of integer; i,j,max,k,j1: integer; begin randomize; for i: =1 to n do for j: =1 to n do a[i,j]: =random(10)-5; for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 3); writeln; end; writeln; k: =1; max: =-5; repeat for i: =k to k do for j: =1 to n do if a[i,j]> max then begin max: =a[i,j]; j1: =j; end; a[i,j1]: =a[i,1]; max: =-5; inc(k); until k=n+1; for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 3); writeln; end; writeln; end.