Мне кажется что второе но это кому-как.
Центральный процессор, так как он является основной и неотъемлемой частью ПК.
Непонятно, что означает "дополнительный" стакан молока... т.е. есть еще основная порция молока? Если так, то (смотри файл) в столбец "основное молоко" надо добавить значения. Если нет, то этот столбец вообще убрать и посчитать итог по столбцу "дополнительное молоко".
И, да, значения все, естественно, с потолка... Сами введите, какие нужно.
Var
a:array [1..10] of real;
ran:real;
i:integer;
begin
for i:= 1 to 10 do
begin
ran:=100-random(200)+1;
a[i]:= ran;
if a[i]< 0
then begin
write(a[i],' ');
writeln(i);
end;
end;
end.<span>
</span>