я сделал рандомные числа от 0 до 100, если нужно можешь изменить, что бы заполнялся пользователем.
a[10],i,min,s,p:integer
randomize
for i=1 to 10 do
a[i]:=random(101);
min:=a[i];
s:=0
p:=1
for i=1 to 10 do begin
if a[i]<min then
min:=a[i];
if a[i]<0 then
s:=s+a[i];
if a[i] mod 3 = 0 then
p:=p*a[i];
end;
write('minimum=', min, ' summ=', s, ' umnosenie=', p);
end.
Выравнивание текста - по центру
html - align
css - text-align
<span>Если перенос из младшего разряда = 0, то перенос в старший разряд при
суммировании одноразрядных двоичных чисел,равных 1 будет равен 1, а
сумма равна 0, а если перенос из младшего разряда = 1, то и перенос и
сумма будет равна 1. Смотрите таблицу на рисунке. Удачи!)</span>