Дан массив с, размерностью 50; элементы массива-это числа из промежутка от 0 до 50. написать промежуток, вычислить кол-во, сумму, произведение элементов массива, кратных 7 и меньших 30.

Const n=50; var a: array[1..n]of integer; k,i,s: integer; begin     for i: =1 to n do       begin           a[i]: =random(101)-50;             write(a[i]: 4);               if a[i]< 0 then                   begin                       s: =s+a[i];                       k: =k+1;                   end;       end; writeln; if k< > 0 then       writeln(s/k) else       writeln('нет отриц') end.

Первый советский компьютер был создан под руководством сергея алексеевича лебедева (1902—1974). необходимость создания собственного эвм в  была осознана несколько позже, чем в  сша, так что соответствующие работы начались только с  осени 1948  года. инициаторами проекта выступили ученые-ядерщики  — в  те  годы буквально вся страна работала над атомным проектом, который курировал лично лаврентий берия. первым делом советские разработчики приступили к  разработке малой электронной счетной машины (мэсм). 1946 год - это не год создания самой эвм. в 1946 только определились с прниципиальной схемой блоков и компоновкой. сам компьютер сделали только в 1950. разработки шли в киеве, тогда не делили на и украинских ученых. они все были советские, частью из москвы, частью - киевляне (в частности, глушков).