Запишите полный текст программы. for i: =1 to n-1 do begin imax: =i; for j: =i+1 to n do if a[j]> a[imax] then imax: =j; x: =a[i]; a[i]: =a[imax]; a [imax]: =x

Const       n = 20; var       i, imax, j, x: integer;       a: array[1..n]of integer; begin       for i : = 1 to n do               a[i] : = random(100);       for i : = 1 to n - 1 do       begin               imax : = i;               for j : = i + 1 to n do                       if a[j] > a[imax] then                               imax : = j;               x : = a[i];               a[i] : = a[imax];               a[imax] : = x;       end;             for i : = 1 to n do           write(a[i],' ');                 writeln();       writeln(imax);       end.

A) program primer; uses crt; var a, b: char; begin   write('введите первый символ a = ');   readln(a);   write('введите второй символ b = ');   readln(b);     writeln;   write('код символа a = ', ord(a), ', код символа b ', ord(b));   readln; end. в) program primer2; uses crt; var a,b,c: char; begin         write('введите чила a, b, c = ');         readln(a,b,c);                 writeln('результат сцепления: ', a+b+c); end.

Винер (wiener) норберт (26.11.1894, колумбия, миссури, — 19.3.1964, стокгольм) , американский учёный. к 14 изучил высшую , в 18 лет стал доктором философии гарвардского университета. с 1919 преподаватель, с 1932 профессор массачусетского технологического института. занимался логикой и теоретической . в 1920—30-е гг. получил известность как работами по теории потенциала, гармоническим функциям, и преобразованиям фурье, тауберовым теоремам, общему гармоническому анализу.  в 1945—47 годах у винера возникла идея о необходимости создания единой науки, изучающей процессы хранения и переработки информации, и контроля. для этой науки винер предложил название кибернетика, получившее общее признание. норберту винеру принадлежит, несомненно, первое место в пропаганде значения кибернетики во всей системе человеческих знаний.