Нужна 1. какие числа записаны римскими цифрами ? а) mcmxcix б)cmlxxxviii в) mcxlvii . что это за числа ?

М=1000 с=100 l=50 x=10 v=5 i=1 это значения букв

2) const n=10; var a: array[1..n] of integer; k,i: integer; begin writeln('vvedite massiv='); for i : = 1 to n do  readln(a[i]); k: =0; for i : =   1 to n do  if a[i]> 0 then   inc(k); writeln ('k=',k); readln; end. 1) const n=10; var a: array[1..n] of integer; s,p,i: integer; begin writeln('vvedite massiv='); for i : = 1 to n do  readln(a[i]); s: =0; p: =1; for i : =   1 to n do  if (a[i] mod 2=1) and (a[i] mod 3=0) then begin  s: =s+a[i]; p: =p*a[i]; end; writeln('s=',s, ' p=',p); readln; end.

Вычисление производится "в столбик".             1 1 0 0 1 0 1 0 1 х                          1 0 0 1             1 1 0 0 1 0 1 0 1 +1 1 0 0 1 0 1 0 1   1 1 1 0 0 0 1 1 1 1 0 1 чтобы не загромождать решение, строки из нулей, полученные умножением на 0, не пишутся. поэтому в суммировании участвуют лишь значения, представляющие собой первый сомножитель, сдвинутый до уровня единиц из разрядов второго сомножителя. в нашем случае это самая правая позиция и позиция, со свигом влево на три разряда.