Найти сумму элементов целочисленного массива. программу составить на паскале

var k: array[1..10] of integer;

var s: real;

var i: integer;

 

begin

for i: =1 to 10 do begin

k[i]: =round(10*random+3);

s: =s+k[i];

end;

write('сумма массива = ', s);

writeln

end.

 

должно работать, проверьте.

Панель в windows нужна для удобства работы с папками и приложениями. на ней постоянно отображаются значки открытых программ и папок, и вы всегда можете быстро переключиться между приложениями. к тому же на панели предусмотрена панель быстрого вызова. вы сами формируете состав ярлыков в этом разделе, и при работе приложения с полным экраном вам не придется сворачивать окно для вызова нужной программы, например, калькулятора при работе в word. а добавив к панелям инструментов наиболее часто используемые при работе папки, вам вообще не надо выходить на рабочий стол, панель всегда в вашем распоряжении.

1) e1a0(16) = 1110 0001 1010 0000(2)  количество единиц = 6 2)  11001011(2) = 128+64+8+2+1 = 203(10) 11111000(2) = 128+64+32+16+8 = 248(10) 11011011(2) = 128+64+16+8+2+1 = 219(10) 10011111(2) = 128+16+8+4+2+1 = 159 11100100(2) = 128+64+32+4 = 228(10) d4(16)+20(8) = 13*16+4 + 2*8 = 212+16 = 228(10) только одно число больше 228(10):     это 11111000(2) = 128+64+32+16+8 = 248(10) 3)  11011100(2) = 128+64+16+8+4 = 220(10) df(16) = 13*16+15 = 208+15 = 223(10) количество чисел, удовлетворяющих неравенству - два (221 и 222).