. Дан массив естественных чисел, данных случайным образом из диапазона от

program zz1;
const n = 10; // задаем количество частей в массиве
var i, x, k, j, s:integer; // задаем переменные целого типа
m:array [1..n] of integer;
begin
write( введите данное число X );
read(x);
for i:=1 to n do // получаем n чисел случайных и записываем их в массив
m[i]:=random(256);
for i:=1 to n do // выводим приобретенный массив на экран
write(m[i], );
writeln; // переходим на новую строчку для вывода ответа
for i:=1 to n do
if m[i] = x then k:=i;
if k = 0 then writeln( частей равных данному нет )// выводим ответ
else
begin
for j:=k to n do s:=s+m[i];
write( сумма частей от х и до конца = , s);
end;
end.