Впаскале: составить таблицу значений функции у=5х-2 на отрезке от 1 до 20 в шагом в=2

var x,y,h: real;

begin

  h: =2;

  x: =1;

  repeat

        y: =5*x-2;

        writeln(x: 5,y: 5);

        x: =x+h;

  until x> 20;

end.

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

На алгоритмическом. a=массив(10..50); max: =a[1]' min: =a[1]; n_min: =0; n_max: =0; k: =0; i: =10; пока i< =50   делай нц   если a[i]> max то     нц       max: =a[i];       n_max: =i;     кц   если a[i]< min то     нц     min: =a[i];     n_min: =i;     кц   если (i mod 2)==0 то     sum: =sum+a[i];       k: =k+1; кц srednee_znachenie: =sum/k; //======================== var a: array(10..50)  of integer; max,min,n_min,n_max,k,i,sum: integer; sr: float; begin   max: =a[1];   min: =a[1];   for i: =10 to 50 do   begin     if a[i]> max then     begin       max: =a[i];       n_max: =i;     end;     if a[i]< min then     begin       min: =a[i]       n_min: =i;     end;     if ((i mod 2)=0) then     begin       k: =k+1;       sum: =a[i]+sum;     end;   end; end; sr: =sum/k; end.